обработчик события OnError

[Randy.Mandy]

Здравствуйте!
У меня совсем глупый вопрос.
Скажите, пожалуйста, обработчик события OnError может быть применён по всему коду программы? Или его ставят только в том месте, где, вероятно,по каким-то причинам может возникнуть ошибка?

[Казанский]

По-разному бывает. Во-1, подавление ошибки включают там, где состояние ошибки является ожидаемым результатом. Например: если в книге нет листа с определенным именем, создать его:

Sub gg()
Dim a, theSheet
a = "SomeName"
On Error Resume Next
Set theSheet = Sheets(a)
If Err Then
    Err.Clear
    Set theSheet = Sheets.Add
    theSheet.Name = a
End If
'работа с объектом theSheet
End Sub

Включить ли дальше обработку ошибок - зависит от важности задачи, которую выполняет код. Если он производит расчеты, влияющие на результат, то обработку ошибок надо включить. Иначе в случае ошибки результат получится неверный, но сообщения об этом не будет.
Если же код выполняет роль "звоночков и свисточков", обработку ошибок можно не включать. Например, код подсвечивает строку и столбец активной ячейки и срабатывает при каждом перемещении курсора. Если в коде возникает ошибка, то при подавлении ошибок подсветки не будет (что печально, но терпимо), а при включенных ошибках будет появляться сообщение при каждом перемещении курсора, что неприемлемо.

[Randy.Mandy]

Спасибо Вам за ответ!

Если он производит расчеты, влияющие на результат, то обработку ошибок надо включить. Иначе в случае ошибки результат получится неверный, но сообщения об этом не будет.

Абсолютно тот самый случай!!!
Влияет! очень влияет!
Скажите, а как в случае возникновения ошибки, сделать переход на метку, которая после выдачи сообщения о том,что ошибка произошла, делает выход из программы(закрывает приложение Эксель), а в случае, если ошибки нет, то продолжает код? Дело в том,что если ошибки не возникает, то всё равно из-за наличия строки в коде процедуры после Errors1:

Application.Quit

программа закрывается, а в этом необходимости нет.

....
On Error GoTo Errors1
' место, где может возникнуть ошибка 
......
........
Errors1:
MsgBox ("Произошла ошибка. Перезапустите программу.")
Application.Quit

вот как разграничить метку с выходом из программы с случае ошибки с тем,что бы выхода не было, если ошибки не возникает?

Спасибо.

[Казанский]

Очень просто

....
On Error GoTo Errors1
' место, где может возникнуть ошибка 
......
Exit Sub '!!!

Errors1:
MsgBox ("Произошла ошибка. Перезапустите программу.")
Application.Quit
End Sub

[Randy.Mandy]

Очень помогло !!!
Спасибо огромное!!