Resize отказывается работать

[rdva]

Dim Cel As Range
Set Cel = Workbooks("Книга1").Worksheets(1).Cells(7, 1)
Cel.Resize(0, 2).Copy Workbooks("Книга2").Worksheets(1).Cells(8, 1)

Выдает "Application defined or object defined error".
Почему? Как правильно сделать?

[Pavel55]

Точно не знаю, но может так?

Код: Выделить всё

Sub Макрос1()
Dim Cel As Range
    Set Cel = Workbooks("Книга1").Worksheets(1).Cells(7, 1).Resize(1, 2)
    Cel.Copy Workbooks("Книга2").Worksheets(1).Cells(8, 1)
End Sub

[voyt]

надо: Cel.RESIZE (1,2).Copy

[KL]

или так

Cel.Resize(, 2).Copy

[rdva]

Спасибо!