Copy data from one Excel workbook to another

[HairyHippy]

Please could someone tell me what is wrong with this code:

Sheets("Transfer").Range("InputRange").Copy ' From original workbook
Workbooks.Open Filename:="****.xls"         ' Opens destination workbook
Range("CopyStart").Activate                 ' Selects cell in destinatiom workbook where data to be copied to
Selection.PasteSpecial Paste:=xlPasteValues ' Pastes data

Defined name InputRange in original workbook.
**** substituted with real name.
Defined name CopyStart in destination workbook.

 

[PHV]

You want this ?
Sheets("Transfer").Range("InputRange").Copy
Workbooks.Open Filename:="****.xls"
Range("CopyStart").PasteSpecial Paste:=xlPasteValues

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[HairyHippy]

This gives a Run-time error '1004':
Method 'Range' of object'_Worksheet'failed
when trying to paste.

 

[HairyHippy]

Solved!
Workbooks("****.xls").Sheets("Input").Range("CopyStart").PasteSpecial Paste:=xlPasteValues

Thanks!!