Copy & Paste

[billandrew]

Attempting to copy and paste rows 1 to 8 from one worksheet to another. I am able to copy, however when I try to format the copied range I am receiving an error. I am using the following code.

Thank You

Sub copyrows()
Dim rng As Range
Set rng = Rows("1:8")
rng.Copy
Worksheets("Sheet2").Rows("1:8").PasteSpecial
Selection.PasteSpecial xlPastevlaues


End Sub

 

[Johnny C]

Worksheets("Sheet2").Rows("1:8").PasteSpecial should be
Worksheets("Sheet2").Rows("1:8").Select
Otherwise Selection doesn't have anything, or what was most previously selected.

if that doesn't sort it, what error are you getting?

 

[Fluff]

Alternatively get rid of the select, which is a) unnecessary and b) slows things down

Worksheets("Sheet2").Rows("1:8").PasteSpecial xlPastevlaues

 

[billandrew]

Thank you both.