Можно создать два окна одной книги и расположить эти два окна так же, как Вы располагали окна двух разных книг.  
 
Меню-Окно-Новое окно - при открытой нужной книге.

Нарисовал.  
При открытии книги содаются два окна:  
 
Private Sub Workbook_Open()  
 
   Worksheets("Лист1").Activate  
   With ActiveWindow  
       .WindowState = xlNormal  
       .Top = 4  
       .Left = 4  
       .Width = 510  
       .Height = 400  
       .NewWindow  
       Worksheets("Лист2").Activate  
'        .Top = 4  
       .Left = 500  
'        .Width = 510  
'        .Height = 400  
   End With    
End Sub  
 
Но листы развернуты полностью. Нужно дать команду "вернуть, как было!":  
Sub two_window()  
   ActiveWindow.WindowState = xlNormal  
End Sub  
 
Можно, чтобы не командовать лишний раз? Чтобы само, как в сказке?

Спасибо. Макрорекодер такого не знает. И я вместе с ним :)  
Не нужно задавать размер. Удобнее.  
 
Но все равно активный лист развернут на весь экран, Нужно .WindowState = xlNormal (вручную или кодом).  
Может, где в настройках?

Тот же файл, но с новым кодом.  
Два окна рядом - только после "Восстановить окно".

Вить, подтверждаю - см. скрин. И пальцем не шевельнул после открытия. Мож у тя в персонале какой зловредный макрос сидит?  
PS и в 2007 попробовал - окна рядом.