Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("A1")) Is Nothing Then
Select Case Target.Value
Case 2
Call FirstMacro
Case 4
Call SecondMacro
'add in all the cases you require
End Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If MsgBox("Execute?", vbYesNo) = vbNo Then Exit Sub
Select Case Target.Value
Case 2
Call FirstMacro
Case 4
Call SecondMacro
'add in all the cases you require
End Select
End If
End Sub