Ошибка при обращении к открытым рабочим книгам в Excel 2007 - VB

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

Есть небольшая программа (макрос) в Excel.

[/SRC]
Sub spravka()

n = Range(Workbooks("реестр").Worksheets(1).Cells(4, 1), Workbooks("реестр").Worksheets(1).Cells(4, 1)).CurrentRegion.Rows.Count

MsgBox (n)

i = 15
Do While Workbooks("решения").Worksheets(1).Cells(i, 2) <> ""
For j = 5 To n + 4
If Workbooks("реестр").Worksheets(1).Cells(j, 5) = Workbooks("решения").Worksheets(1).Cells(i, 2) Then
Workbooks("реестр").Worksheets(1).Cells(j, 5).Interior.ColorIndex = 6
Workbooks("справка").Worksheets(1).Cells(5, 2) = Workbooks("реестр").Worksheets(1).Cells(j, 5)
...
Workbooks("справка").Worksheets(1).PrintOut 1, 1
End If
Next j
i = i + 1
Loop

End Sub
[SRC vba]

Программа берет данные из одной открытой рабочей книги и вставляет в другую открытую рабочую книгу. На 2003 офисе программа работает нормально, а под Excel 2007 выдается ошибка:
Subscript out of range
ругается на строку программы:
n = Range(Workbooks("реестр").Worksheets(1).Cells(4, 1), Workbooks("реестр").Worksheets(1).Cells(4, 1)).CurrentRegion.Rows.Count
Если эту строку удаляешь, то ругается на следующую строку, где программа обращается не к текущей рабочей книге
похоже, что он не видит открытые книги и отказывается с ними работать. Как решить эту проблему?

Решение задачи: «Ошибка при обращении к открытым рабочим книгам в Excel 2007»

textual
                            Листинг программы 
                        
                            Workbooks("решения")