If X, rest of macro stops

[kwp004]

So I have a macro, but if a certain condition is met, I want the rest of it to stop running. How do I fix the code below? Currently, it keeps going.

Sub ABC()

If Range("D1") = "XXX" Then
MsgBox "WARNING"
Application.EnableEvents = False
End If

[rest of macro]

End Sub

 

[timfritsch]

I can think of two simple ways to do this:

Sub ABC()
If Range("D1") = "XXX" Then
MsgBox "WARNING"
Application.EnableEvents = False

Exit Sub
End If

[rest of macro]

End Sub

or

Sub ABC()
If Range("D1") = "XXX" Then
MsgBox "WARNING"
Application.EnableEvents = False

GoTo skipToEnd:
End If

[rest of macro]

skipToEnd:
End Sub


Hope this helps.

Tim

 

[V_Malkoti]

1. Place an Exit Sub inside If-Then:

Sub TestSub
  If Range("D1")="XXX" Then
    msgbox "WARNING"
    Application.EnableEvents = False
    Exit Sub
  End If

  ' Rest of the code

End Sub

2. Use Else part of the If statement:

Sub TestSub
  If Range("D1")="XXX" Then
    msgbox "WARNING"
    Application.EnableEvents = False
  Else
    ' Rest of the code
  End If

End Sub

 

[kwp004]

Awesome, thanks guys