Имя листа из ячейки

[Amator]

Здравствуйте. Во вложении пример. Имя листа берется из ячейки А2 этого листа (лист 111). На листе 888 этот код не работает, так как в  ячейке А2 формула. Помогите пожалуйста решить эту проблему.

[вложение удалено администратором]

[Администратор]

Amator, скопируйте макрос в VBA из файла "Лист2" в файл "Лист3", подкорректируйте адрес ячейки.
Удалите макрос из VBA из файла "Лист2".

Если не получится, то выложите файл с изменениями, которые я описал в этом сообщении.

[Amator]

Лист1 - код работает. Лист2- не работает так как ячейка А2 (в которой имя листа) ссылается на лист3 ячейка В3.

[Администратор]

Amator, передайте в процедуру "SetActiveSheetName" VBA-имя листа, с которым надо работать процедуре "SetActiveSheetName".
Сейчас процедура "SetActiveSheetName" работает с активным листом.

[Amator]

НЕ получилось. Если Вам не сложно - напишите.

[Администратор]

Amator, в ответе #1 написано про то, чтобы Вы выложили файл, если не получится. Выложите файл.

[Amator]

Файл.

[вложение удалено администратором]

[Администратор]

Amator, в ответе #1 написаны действия. Сделайте эти действия в файле.

[Amator]

Файл с изменениями.

[вложение удалено администратором]

[Администратор]

Внёс изменения в файл.

[вложение удалено администратором]

[Amator]

Спасибо ! Я все понял.

[Amator]

Здравствуйте . Посмотрите , пожалуйста код . Имя листа5 из ячейки В4 .

[вложение удалено администратором]

[Администратор]

Amator, синтаксис (синтаксис - это правила написания кода) конструкции "If ... Then ... End If" такой:
    If ... Then
        'Действие.
    'Если ещё нужно проверить ситуацию.
    ElseIf ... Then
        'Действие.
    'Все остальные ситуации.
    Else
        'Действие.
    End If

[Amator]

Спасибо!