Paste as Values using VBA

[maclachlan19]

I have a simple piece of code to copy and paste a range. I need to tweak the code so the values that pasted into Data1 are pasted as values and not formulas.

Worksheets("GL").Range("A2:A2499").Copy _
    Destination:=Worksheets("Data1").Range("A3001")

 

[Michael M]

Try

Worksheets("GL").Range("A2:A2499").Copy
Worksheets("Data1").Range("A3001").PasteSpecial xlPasteValues

 

[maclachlan19]

Thanks that worked perfectly

 

[Michael M]

Glad to help...