Copy/Paste "values" using Range??

[kwagner1]

greetings,

I'm using the following code to insert a second worksheet and then copy/paste the data on the first worksheet to the second worksheet (i.e., FINAL-DATA). I want to copy/paste "values" so the formatting is not brought forward - how would i tweek my code?? (i'm stuck!) thanks!

Sub CopyMSQueryresultsToSheet2()
' copy/paste the msquery results data to a second worksheet and then start formatting
' Add a new sheet
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "FINAL-DATA" ' add new sheet
Worksheets(1).Activate

Set Sh1 = Worksheets(1)
Set Rng = Sh1.Range("A1").CurrentRegion
Set Sh2 = Worksheets("FINAL-DATA")

Rng.Areas(1).Copy Sh2.Range("A1") <--- copy/paste Values here????

End Sub

 

[VoG]

Try

Rng.Areas(1).Copy
Sh2.Range("A1").PasteSpecial Paste:=xlPasteValues

 

[Scott Huish]

Rng.Areas(1).Copy
Sh2.Range("A1").PasteSpecial xlPasteValues

 

[kwagner1]

you guys rock ! perfect!!! thanks again