Exiting from a called sub all the way out

[Greg Maxey]

What is the proper code exit all the way out from sub that
is called in a higher level routine?

Eample:

Sub BigOne()

Call LittleOne()
Blah,
Blah

End Sub

Sub LittleOne()

Blah,
If Blah = 1
Exit Sub
Blah
Blah

End Sub

If blah = 1 I want to exit to the all the way out of
Little and Big sub.

Thanks

 

[Jonathan West]

Hi Greg,

The simplest way to do this is to make the inner sub a function, and work it
like this

Sub BigOne()

If LittleOne() = 1 Then Exit Sub
Blah,
Blah

End Sub



Function LittleOne()

Blah,
If Blah = 1
LittleOne = 1
Exit Function
Blah
Blah

End Function

 

[Chad DeMeyer]

Greg,

Make LittleOne a function and test the return value:

Sub BigOne()
If LittleOne = True Then Exit Sub
Blah,
Blah
End Sub

Function LittleOne() As Boolean
Blah,
If Blah = 1 Then
LittleOne = True
Exit Sub
End If
Blah
Blah
LittleOne = False
End Function

Regards,
Chad

 

[Greg]

Jonathan, Chad:

You two are added to the list of fine, helpful teachers.
Jonathan I am working on your comments now. After a few
rough spots, things are looking better.

Thank you both.

 

[Greg Maxey]

Jonathan, Chad

Thanks to you both. I thought I replied earlier.