Прекращение выполнения макроса

[AesmaDiv]

Имеется код:
Sub Второстепеный(параметр)
Dim index
...
If index=15 then
Exit Sub
End if
...
End Sub

Sub Основной()
...
Call Второстепенный(параметр)
...
End Sub

Согласно коду при index=15 прекращается дальнейшее выполнение макроса Второстепенный(), а мне нужно чтоб прекращалось выполнение макроса Основной(). То есть мне нужно прекратить выполнение программы, если в подпрограмме достигается какое-то условие. Подскажите пожалуйста.

[Fierce]

Можно обьявить переменную index в Sub Основной и передать ее во второстепенный. А в основном поставить условие

[AesmaDiv]

Такой вариант не подходит. Дело в том, что условие прекращение макроса основывается на переменой, объявленной и изменяемой в подпрограмме Второстепенный(). Код может содержать большое кол-во подпрограмм...второстепенных и третьестепенных. И вот при достижении какого-то условия, допустим в третьестепенной подпрограмме необходимо не просто выйти из подпрограммы, а прекратить выполнение макроса вообще. Exit Sub прекращает выполнение Sub'а в котором он вызван. А вот есть ли такой Exit который остановит выполнение модуля, вне зависимости откуда он был вызван?

[IgorGO]

Function Второстепеный(параметр) as boolean
Dim index
Второстепеный = False
...
If index=15 then
Exit Sub
End if
...
Второстепеный = True
End Function

Sub Основной()
...
if not Второстепенный(параметр) then Exit Sub
...
End Sub

[AesmaDiv]

Хмм..только так, да? То есть такой команды нет и приходится выдумывать способы реализовать через Exit Sub. Плохо. Я думал что есть что-то вроде Quit. Жаль.
В любом случае спасибо.

Кстати, IgorGO у вас ошибка кажися. Я так понимаю вы имели ввиду следующее:

Function Второстепеный(параметр) as boolean
Dim index
Второстепеный = False
...
If index=15 then
Второстепеный = True
End if
...
End Function

Но такой вариант всё равно мну не устраивает. У меня в модуле очень много подпрограмм и в большей части нужно реализовать условие выхода из программы. Плюс многие подпрограммы работают с листами и ячейками, а Function это делать не хочет.

[IgorGO]

нет, я имел ввиду то, что написал.
Function Второстепеный(параметр) as boolean
Dim index
Второстепеный = False
...
If index=15 then
Exit Function
End if
...
Второстепеный = True
End Function
а было Exit Sub - вот это ошибка

обратили внимание, что в ОСНОВНОЙ:
if not Второстепенный(параметр) then Exit Sub
а не Call Второстепенный(параметр) как было у Вас

[IgorGO]

подпрограммы работают с листами и ячейками, а Function это делать не хочет.

а у меня до этого сообщения работали, теперь наверное тоже не будут...