Переход в открытые книги (команда из надстройки xla)

[MaxxVer]

Добрый день, уважаемые эксперты!
Впервые пишу код для надстройки (xla) и столкнулся с такой проблемой - мой код начинает выполняется в Книге 1, потом открывает Книгу 2 и создает Книгу 3. Названия Книг всегда разные, поэтому обратиться к книге по названию не могу. Необходимо перейти (обратиться) к Книге 1 (для копирования из неё), потом вернуться в Книгу 3. На подобие команды Alt-Tab в винде. Не понимаю как это написать.., подскажите пожалуйста. Можно это сделать без присвоения каждой книге имен и путей сохранения..?

[Hugo121]

Можно.
Ориентируйте код на активную в начале работы книгу. Присваиваете ей объектную переменную.
Далее открываете книгу2 (вероятно или уже прописан путь, или выбор в диалоге) - ей тоже переменную.
Ну и созданной книге тоже.
Далее используете эти переменные.
Названия книг нигде не нужны. И не важны.

Схематично:

Sub tt()
    Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook

    Set wb1 = ActiveWorkbook
    Set wb2 = Workbooks.Open("C:\Downloads\5051245.xls")
    Set wb3 = Workbooks.Add


    MsgBox wb1.Sheets(1).Range("A1").Value
    MsgBox wb2.Sheets(1).Range("A1").Value
    MsgBox wb3.Sheets(1).Range("A1").Value

End Sub

И зачем вообще в них "переходить"?

[MaxxVer]

Спасибо большое! Принцип понял. Имел в виду не переходить, а обращаться из кода...