excel vba cell on change
' In your Worksheet code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Target.Worksheet.Range("A1")) Is Nothing Then
Application.EnableEvents = False
' Do your stuff
Application.EnableEvents = True
End If
End Sub