Переключение между книгами - VBA

Формулировка задачи:

Открыты 2 книги. Одна - источник данных (название всегда разное). Другая - приемник. Название всегда "Книга1". Как переключиться с источника на приемник, понятно. А вот как обратно, если неизвестно название книги? Открыты только эти две.

Решение задачи: «Переключение между книгами»

textual
                            Листинг программы 
                        

                            Dim wb As Workbook
For Each wb In Workbooks
    If Not wb Is ActiveWorkbook Then    'не текущая книга
        If wb.Windows(1).Visible Then   'не PERSONAL.XLS и др. скрытые
            wb.Activate
            GoTo 1
        End If
    End If
Next
MsgBox "Другая книга не найдена", vbExclamation
1 'продолжение программы
                        