Copy range from one workbook to another

[Chad]

Hi All,

I am trying to copy a range from one workbook to another. Other posts say
you cannot copy from an inactive worksheet, but when I copy to the
clipboard, open or activate the other workbook, it fails.

Workbooks("349999M.xls").Worksheets("Sheet1").Range("A1:E14").Copy
Workbooks.Open "\\Server1\BellPit.xls", False
ActiveWorkbook.Worksheets(1).Activate
Cells(1, 1).Activate
ActiveSheet.Paste

Any help would be great,
Thanks
Chad

 

[JLGWhiz]

Workbooks("349999M.xls").Worksheets("Sheet1").Range("A1:E14").Copy
Workbooks.Open "\\Server1\BellPit.xls", False
Workbooks("Bellpit").Worksheets(1).Cells(1, 1).Paste

 

[JLGWhiz]

Better yet:
Workbooks.Open "\\Server1\BellPit.xls", False
Workbooks("349999M.xls").Worksheets("Sheet1").Range("A1:E14").Copy
Destination:=Workbooks("Bellpit").Worksheets(1).Cells(1, 1)

 

[Chad Cameron]

Sorry, for the delay,

Thanks
Chad

Better yet:
Workbooks.Open "\\Server1\BellPit.xls", False
Workbooks("349999M.xls").Worksheets("Sheet1").Range("A1:E14").Copy
Destination:=Workbooks("Bellpit").Worksheets(1).Cells(1, 1)

 

[Chad Cameron]

Actually it didn't work

Here is my code

Workbook 07125M.xls is already open and active when the following code is
executed. The error is "Subscript is out of range"

Workbooks.Open "\\Server1\Data\Engineering\Highwall
Monitors\SLOPE_MONITORING_1XX_BellPit.xls", False
Workbooks("07125M").Worksheets("Sheet1").Range("A1:E16").Copy
Destination:=Workbooks("SLOPE_MONITORING_1XX_BellPit").Worksheets(1).Cells(1,
1)