Макрос кнопки открытия листа из другой книги

[esterny]

Здравствуйте,
У меня несколько книг. В главной книге создаю кнопки на открытие листов в других книгах, но нигде не могу найти код. Помогите, пожалуйста!
Уже перебровала все, но ничего не получается. Я думаю, что этот код неправильный:

Sub Кнопка2_Щелчок()
Workbooks("Книга2.xlsm").Sheets("Ли ст1").Activate
End Sub

[kuklp]

Почему? Правильный. Если книга уже открыта и активна. А иначе, сначала нужно либо открыть, либо активировать(если уже открыта) книгу. И только потом активировать ее лист.

[esterny]

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

Почему? Правильный. Если книга уже открыта и активна. А иначе, сначала нужно либо открыть, либо активировать(если уже открыта) книгу. И только потом активировать ее лист.

А как добавить код при условии, если книга не открыта и не активирована?

[kuklp]

workbooks.open pathname
Дальше читаем справку.

[esterny]

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

workbooks.open pathname
Дальше читаем справку.

Написала вот такой код:

Sub Кнопка2_Щелчок()
Workbooks.Open "D:\1\2\3\Главная.xlsm"
Workbooks("Главная.xlsm").Sheets("Л ист1).Activate
End Sub

Книга и лист открываются, но вначале появляется окно с ошибкой:

Run-time error '9':
Subscript out of range

Что неправильно в этом коде?

Нашла ошибку! В третьей строке написала название не той книги) Спасибо Вам большое за помощь!

[kuklp]

Я вижу только, что у Вас нет закрывающей кавычки в

Sheets("Лист1)

И чтоб не вставлял форум в Ваш код ненужные пробелы - пользуйтесь тегами форматирования кода(знак решетка).