Paste Special

[Sandy]

I have the following code (courtesy of this newsgroup) which works fine
other than it copies the formulas, rather than the values, - which are what
I require.
I am sure it needs the equivalent of paste special but I don't know how to
achieve that.

"Set SourceRange = Sheets("RecordOfRoundsDetailed").Range("A45:FK45")

Set DestSheet = Sheets("RecordOfRoundsDetailed")

Lr = LastRow(DestSheet)

Set DestRange = DestSheet.Range("A" & Lr + 1)

SourceRange.Copy DestRange"

All help appreciated.
Sandy

 

[Ron de Bruin]

See the example code on this page
http://www.rondebruin.nl/copy1.htm

 

[Sandy]

Thanks Ron perfect for my particular case.
Sandy

See the example code on this page
http://www.rondebruin.nl/copy1.htm