salve

questo è il mio codice (sono alle prime armi :P)

codice:
Private Sub Worksheet_Active(ByVal Target As Range)
If Cells("d42").Value = "€5,50" Then
    ActiveCell.FormulaR1C1 = "=a42*10"
    Else
    
End If
End Sub
in pratica vorrei ke se la cella D42 è uguale 5,50 allora I42=A42*10, visualizzabile sulla cella I42! grazie in anticipo