Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
MsgBox ("Cell A1 was changed")
End If
End Sub
No. We often need to make decisions about whether such things are more trouble than they are worth.only cell A1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Call "macro name"
End If
End Sub