Avviare macro se cella cambia il suo valore

 
 Option Explicit
 
 Dim ValoreD2 As Variant
 
 Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Range("D2").Value <> ValoreD2 Then ''Target.Address = "$D$2" Then
 
 MsgBox "La cella D2 a cambiato il suo valore"  ''Call MiaMacro
 
 End If
 
 ValoreD2 = Range("D2")
 
 End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2,C2")) Is Nothing Then Call TuaMacro
End Sub

Sub TuaMacro()
    MsgBox "Mio Codice VBA"
End Sub

Dim valore As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If valore <> Range("d2").Value Then
    Call TuaMacro
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

valore = Range("d2").Value
    
End Sub
 
Sub TuaMacro()
MsgBox "ciao"
End Sub