Statement to exit root sub

[Glory]

sub test1()
 
Call test2
 
End sub
 
Sub test2()
 
'Statement to exit both subs, test1 and test2
 
End sub

Is there any such thing? Maybe a statement like "On Error" that's actually "On Exit" instead?

 

[VoG]

Try

End

 

[Glory]

I will check on that. These procedures are in a userform, will that end the breaoder userform execution as well?

 

[VoG]

It will stop everything.

 

[Glory]

I don't want to lose several static variables, so I would use "Stop" if I wanted to halt everything (per VBA help).

However, I actually need to keep the userform running. Any other ideas? Is there any way to specifically target a sub to say, if this resumes then exit the sub? A user-defined event or something?

Edit: I realize I could just use a random variable, set it to 1 before the second procedure exits, then have an if-block that triggers if the variable is not empty to exit the other sub. But I asked this question to see if there was a cleaner way.

 

[Ruddles]

One method for exiting the root sub without stopping everything is to return a value from the second routine which signals to the root sub that it's to exit. However to do that the called routine must be a function:-

sub test1()
 
  If test2 Then Exit Sub
 
End sub
 
Function test2() As Boolean
 
  test2 = true
 
End sub

Alternatively you can have a variable which you set in the called sub to signal to the root sub that it's to exit:-

DIM ExitFlag as Boolean
 
sub test1()
 
  ExitFlag=False
  Call test2
  If ExitFlag=True Then Exit Sub
 
End sub
 
Sub test2()
 
  ExitFlag=True
 
End sub