Выход из главной процедуры

[VictorM]

Здравствуйте, Уважаемые.
Давно уже возникал такой вопрос, но все как-то обходился.
Схематично, есть вот такая конструкция

Sub Главный()
    Call Макрос_1
    Call Макрос_2
    Call Макрос_3
End Sub
Sub Макрос_1()
    If условие Then Exit Sub
End Sub
Sub Макрос_2()
    If условие Then Exit Sub
End Sub
Sub Макрос_3()
    If условие Then Exit Sub
End Sub

при такой конструкции, только последний Макрос_3 завершает Главный макрос. Exit Sub в 1-м и 2-м макросе, соответственно, завершают свою работу и переходят к выполнению следующего, т.е. все правильно.
А вопрос такой - есть-ли возможность и что нужно прописать вместо Exit Sub чтобы завершался Главный макрос при выполнении условия в любом из макросов. Или данная конструкция вообще ошибочна?
Что уже только не пробовал писать, ничего не получается.
Спасибо.

[Hugo121]

Я бы схематично делал так:

Dim flag As Boolean

Sub Главный()
    Call Макрос_1
    If Not flag Then Call Макрос_2
    If Not flag Then Call Макрос_3
End Sub
Sub Макрос_1()
    If условие Then flag = True: Exit Sub
End Sub
Sub Макрос_2()
    If условие Then flag = True: Exit Sub
End Sub
Sub Макрос_3()
    If условие Exit Sub
End Sub

[VictorM]

Hugo121, спасибо за столь быстрый ответ.
Сейчас буду пробовать.
===
и, кстати, опять возникла ситуация http://www.programmersforum.ru/showthread.php?t=219011 мой пост #6

[kuklp]

Проще:

Dim условие
Sub Главный()
    Call Макрос_1
    Call Макрос_2
    Call Макрос_3
End Sub
Sub Макрос_1()
    If условие Then Exit Sub
    условие = True
End Sub
Sub Макрос_2()
        If условие Then End
End Sub
Sub Макрос_3()
    If условие Then Exit Sub
End Sub

[VictorM]

kuklp, да, действительно проще, хотя как он работает, что-то не могу въехать.
буду пробовать сейчас на примерах.
Спасибо.

[EducatedFool]

Я всегда так делаю (при помощи функций):

Sub Главный()
    If Макрос_1 Then Exit Sub
    If Макрос_2 Then Exit Sub
    If Макрос_3 Then Exit Sub
End Sub

Function Макрос_1() As Boolean
    ' ваш код
    ' ...
    Макрос_1 = условие
End Function

Function Макрос_2() As Boolean
    ' ваш код
    ' ...
    Макрос_2 = условие
End Function

Function Макрос_3() As Boolean
    ' ваш код
    ' ...
    Макрос_3 = условие
End Function

[VictorM]

Я всегда так делаю (при помощи функций):

Спасибо!
Сразу столько вариантов.
Большое Спасибо Всем!