Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Only look at single cell changes
If Target.Count > 1 Then Exit Sub
'Only look at cell changes in your defined range (ie Range A1:A10)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target = "" Then Exit Sub 'If Cell is blank, Ignore
'If Cell has value you require - Call Macro
If Target = 1 Then
Call YourMacroNameHere
Exit Sub
Else
End If
End If
End Sub