Обработчик ошибок

[tae1980]

Помогите разобраться с сабжем.
Создаю из VBA Имена в Excel. И хочу контролировать удачно или нет прошло создание или нет. Использую этот код:

On Error Resume Next: Err.Clear
a = Err   'a=0
w = [п_Фирма_НазваниеКраткое]    ' w = "ООО 'Рога и Копыта'"
Names.Add "п_Фирма_НазваниеКраткое", "=1111"
w = [п_Фирма_НазваниеКраткое]    ' w = "1111"
a = Err    'a=40040
If Err Then MsgBox "Не удается создать имя:" & vbCrLf & "п_Фирма_НазваниеКраткое", vbCritical: Exit Sub

Как видно из кода, изменение значение Имени произошло, но при этом так же значение Err стало отлично от нуля, что рассматривается как "произошла ошибка", и срабатывает аварийный выход (хотя операция была выполнена).
Где я ошибаюсь?

[IgorGO]

вы смотрите наличие ошибки там где вы его смотрите, это не значит что ошибка ошибку вызвал предыдущий оператор.
пройдитесь в пошаговом режиме и посмотрите, где она приключилась.
Names.Add "п_Фирма_НазваниеКраткое", "=1111"вы пытаетесь в список имен добавить новое имя, а я вижу, что строкой выше такое уже использовалось, т.е. уже существует в списке имен. это ошибка.

[EducatedFool]

А если убрать On Error Resume Next, и посмотреть, на какой строке остановится макрос?

[tae1980]

Сообщение от EducatedFool

А если убрать On Error Resume Next, и посмотреть, на какой строке остановится макрос?

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

[tae1980]

Сообщение от IgorGO

вы смотрите наличие ошибки там где вы его смотрите, это не значит что ошибка ошибку вызвал предыдущий оператор.
пройдитесь в пошаговом режиме и посмотрите, где она приключилась.
Names.Add "п_Фирма_НазваниеКраткое", "=1111"вы пытаетесь в список имен добавить новое имя, а я вижу, что строкой выше такое уже использовалось, т.е. уже существует в списке имен. это ошибка.

Да, такое Имя есть. Задача, макроса создать (или обновить, если уж есть) содержание Имен на автомате.
Возможно excel ругается на то что Имя уже есть, но содержание Имени все же меняет. Что меня вполне устраивает. Значит ли это что можно просто игнорировать этот код ошибки (подправим IF)?
Завтра попробую провести ряд тестов, голова сегодня уже не варит.