Change "Cut" to "Copy"
--
Jim Cone
Portland, Oregon USA



"ogopogo5"
wrote in message
I'm trying to get this simple code working but I get this following
error message.

Run-Time error '1004':
PasteSpecial Method of Range Class Failed
The following is the code.
L63 has a code of =SUM(L20:L50)
Range("L63").Select
Selection.Cut
Range("S1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Is there another "paste special - values" code that will work?
Ogopogo5