Ошибка создания объекта

[SweetN]

Добрый день! Помогите разобраться в ошибке. Мне надо после создания таблицы под неё скопировать с соседнего листа этой же книги 4 определённые строчки. Вод код процедуры:

Private Sub RasZnach() ' Копируем 4 строки 
    Dim iRow As Integer, formula As Range, ra3 As Range    
    Set formula = wb2.Worksheets("Формулы").Range("a1:af4") ' Копируемые строки
    Set iRow = wb2.Worksheets("Лист3").UsedRange.Row + wb2.UsedRange.Rows.Count - 1 ' Поиск последней заполненной строки
    Set ra3 = wb2.Workshets("Лист3").Cell(iRow + 1, 1)
     fomula.Copy ra3
End Sub

wb2 - определена выше и в других процедурах работает нормально.
При компиляции выдаёт ошибку: object required (для iRow). Что не так?

[EducatedFool]

Буквы экономите?

iRow = wb2.Worksheets("Лист3").UsedRange.Row + wb2.UsedRange.Rows.Count - 1 ' Поиск последней заполненной строки
    Set ra3 = wb2.Worksheets("Лист3").Cells(iRow + 1, 1)
     formula.Copy ra3

[SweetN]

Да, извиняюсь. Я уже исправила.
Но дело, к сожалению, не в этом. Не работает. И даже если написать iRow = 1, то та же ошибка.

[EducatedFool]

Вы убрали Set перед iRow ?

Должно получиться так:

Private Sub RasZnach()    ' Копируем 4 строки
    Dim iRow As Integer, formula As Range, ra3 As Range
    Set formula = wb2.Worksheets("Формулы").Range("a1:af4")    ' Копируемые строки
    iRow = wb2.Worksheets("Лист3").UsedRange.Row + wb2.UsedRange.Rows.Count - 1    ' Поиск последней заполненной строки
    Set ra3 = wb2.Worksheets("Лист3").Cells(iRow + 1, 1)
    formula.Copy ra3
End Sub

[SweetN]

Убрала. Теперь ту же самую ошибку выдаёт для переменной formula.
Пробовала также и заменить wb2 на имя книги. И вообще сделать как отдельный макрос. Ничего не помогло.

[SweetN]

Странно, но дело было всё-таки в wb2. Не понятно, почему её не видно в этой процедуре. Но сейчас главное, что работает, а дальше разберусь =)