Application.ScreenUpdating = False

[Ципихович Эндрю]

где-то я читал в сети про правила хорошего тона, мол взял инструмент:

'отключаем обновление - дёргание экрана при выполнении кода
Application.ScreenUpdating = False

Верни его на место. Доля правды здесь есть
но если по ходу макроса нужно с него сделать выход обычно пишем

Exit Sub

А куда же денем правила хорошего тона
Тогда вроде так, где надо

GoTo Конец

и

Конец:
Application.ScreenUpdating = True 'отменяем отключенное ранее обновление - дёргание экрана при выполнении кода
End Sub

???????????
Это я пишу к тому, что макрос запускаю и происходит обрушение Ворда возможно и не в этом причина

[Ципихович Эндрю]

суть вопроса в том, в случае надобности выйти из макроса как лучше
Exit Sub
или
GoTo Конец
??????????
Если Exit Sub то ложем ли мы по правилам хорошего тона инстументы на место???

[Skif-F]

Можно сделать так:

'Это главная процедура, которая готовит приложение для работы макроса
sub main()
    'Подготавливаем условия для работы
    Application.ScreenUpdating = False
    'вызываем непосредственно макрос
    Макрос(Парам, Парам2)
    'Восстанавливаем параметры по "правилам хорошего тона"
    Application.ScreenUpdating = False
end sub

sub Макрос(.....)
    if .... then Exit Sub

end sub

Все приличия будут соблюдены и даже не придётся использовать GOTO

[Ципихович Эндрю]

СОГЛАСЕН, КАК БЫ ВЫХОД С ПОЛОЖЕНИЯ +1