Try using

Sheets("Occ. Summary").Select
Range("I7").Select
Selection.Copy
Sheets("All Weeks").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlFormats

--
Regards,
Tom Ogilvy




"DJA" wrote in message
ups.com...
Hello all,

I am relatively new to recording macros in excel, and I have problem
that's stumped me. I have two sheets in a workbook and I'm trying to
copy the data from one sheet and paste it to the other. Here is the
relevant portion of my code:

Sheets("Occ. Summary").Select
Range("I7").Select
Selection.Copy
Sheets("All Weeks").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

It works fine in excel 2003 and 2002, but when it's run in excel 2000,
I get a runtime 1004 error - paste special method of range class failed
at the "Selection.PasteSpecial" line.

Unfortunately, I can't just have the employees who use 2000 upgrade to
2003 (although they probably should), that isn't my decision. Any
ideas on how to modify this code so it will work in 2000?

Thanks in advance,

Dave