Chris,

Works alright here.

You can reduce that code down to:
Range("A6:A35").Copy
Sheets("My Data").Range("A6").PasteSpecial xlPasteValues


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Chris" wrote in message
...
I have written the following in VB to copy and paste data
from one workbook to another:

ActiveSheet.Range("A6:A35").Select
Selection.Copy
Windows("Data_2004.xls").Activate
Sheets("My Data").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

For some reason everytime I run the Macro I get the
following error:

'Paste Special method of Range class failed'

Can anyone help with this problem??
Cheers
Chris