' 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