Copying data between workbooks

[riazd]

Hi

I'm trying to copy data between workbooks, but i'm getting an 1004 run time error, on the range object that i'm using viz.



Workbooks("Origin.xlsx").Worksheets("Data").Range(Cells(1, 1), Cells(lastrow, lastcol)).Copy Workbooks("Destination.xlsx").Worksheets("Copy").Range("A1")


Please help,

Thanx

 

[jmacleary]

Hi there. Possibly your target worksheet is protected??

 

[Fluff]

Maybe

With Workbooks("Origin.xlsx").Worksheets("Data")
   .Range(.Cells(1, 1), .Cells(Lastrow, LastCol)).Copy Workbooks("Destination.xlsx").Worksheets("Copy").Range("A1")
End With

 

[riazd]

Hi Jon

If i change the line to the following it works,

Workbooks("Origin.xlsx").Worksheets("Data").Range("A1:A17").Copy Workbooks("Destination.xlsx").Worksheets("Copy").Range("A1")


so it's not the workbook being protected, i think it has to do with the way i've entered the range

Thanx