Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False 'No screen flashes, run faster
Application.EnableEvents = False 'No circular calls
Call NameOfMacro 'Change as appropriate
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub