Exit all subs in VBA

[andrewb90]

Hello All,

If I run a vba code that calls another sub, how do I exit both subs? Basically I have an If statement, and under one condition, I don't just want to exit the current sub, but stop all code from continuing to run.

How would I do that?

 

[Norie]

You could use this.

End

 

[mikerickson]

Alternatly, you could cast the second sub as a boolean Function.

Instead of

Sub One()
    ' Do Something
    Call Two
    ' do more
End Sub

Sub Two()
    ' some code
    If Condition Then End
    ' more code
End Sub

You could do

Sub One()
    ' do something
    If Too Then
        ' do more
    End If
End Sub

Function Too() As Boolean
    ' someCode
    If Condition Then
        Too = False
    Else
        Too = True
        ' more code
    End If
End Sub