Copy data over workbooks

[MattArmitt]

Hi

I am having problems with the following code where I am trying to copy data from one workbook to another

Workbooks("Poland NPO1014").Worksheets("Leszno").Range(Cells(10, 32), Cells(163, 32)).Copy Destination:=Workbooks("VBA NPO Report2").Worksheets("Leszno").Range(Cells(10, 33), Cells(163, 33))

I think it is something to do with the fact that I am trying to copy from one workbook to another. If I change the destination workbook to the same workbook (as per the below code) it works fine.

Workbooks("Poland NPO1014").Worksheets("Leszno").Range(Cells(10, 32), Cells(163, 32)).Copy Destination:=Workbooks("Poland NPO1014").Worksheets("Leszno").Range(Cells(10, 33), Cells(163, 33))

Has anybody got any ideas how I can alter the code so that it works?

Thanks

Matt

 

[VoG]

Try

With Workbooks("Poland NPO1014").Worksheets("Leszno")
    .Range(.Cells(10, 32), .Cells(163, 32)).Copy Destination:=Workbooks("VBA NPO Report2").Worksheets("Leszno").Cells(10, 33)
End With

 

[MattArmitt]

VoG

That worked perfectly.

Could you tell me why the . is needed before Cells in .Cells(10, 32).

Thanks

Matt

 

[VoG]

Yes, it is to fully qualify the cells as well as the range as belonging to Workbooks("Poland NPO1014").Worksheets ("Leszno")

 

[MattArmitt]

That makes sense, thank you