CG

You do not have to copy the data, this will perform the
same action

Sub pasteValues()
Sheets("Sheet2").Range("A1:A10").Value = _
Sheets("Sheet1").Range("A1:A10")

End Sub

Regards
Peter
-----Original Message-----
Good evening,

Need some help to clean up the recorded macro below.
Sheet1 is the
ActiveSheet.
Trying to paste the values of Range("A1:A10") to Sheet2.
Cant find out the
right syntax.
Thankful for any hints.

Brgds

CG Rosén
----------------------------------------------------------
-----------
Sheets("Sheet1").Select
Range("A1:A10").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks
_
:=False, Transpose:=False


.