Worksheet_Change event

[sanilmathews]

Hello,

I am looking to modify the below code in a way that when the user selects "Yes" in the drop down in cell A1, macro should just Exit sub. And when user selects "No" in the drop down the code should trigger "MyMacro".

Private Sub Worksheet_Change (ByVal Target As Range) 
If Intersect (Target, Me.Range("A1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error GoTo ErrorHandler 
Call MyMacro
ErrorHandler:
Application.EnableEvents = True

 

[nemmi69]

Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Trim(Intersect(Target, Me.Range("A1")))) = "YES" Then Exit Sub
Application.EnableEvents = False
On Error GoTo ErrorHandler
Call MyMacro
ErrorHandler:
Application.EnableEvents = True
End Sub

 

[footoo]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
On Error GoTo ErrorHandler
If Target = "No" Then Call MyMacro
ErrorHandler:
Application.EnableEvents = True
End Sub