[corbis]

Нашёл толковый способ, может пригодится кому

Код:

Dim wBook As Workbook
Set wBook = GetObject(ПутьКфайлу)

         If Windows(wBook.Name).Visible = False Then
          Windows(wBook.Name).Visible = True
         End If

Если книга открыта, тогда просто с ней работаем. Если была закрыта - открываем и делаем её видимой.
Почему-то по дефолту она скрыта.