Help: Copy sheet - Paste as Value on Itself

[Rich F]

Hi,

Any help on this would be greatly appreciated:

I need a macro to copy a sheet then paste on top of itself as a value
I've tried but no luck

 

[Norman Jones]

Hi Rich,

Try:

Sub Test()
Dim Sh As Worksheet
Set Sh = Sheets("Sheet1") '<<===== CHANGE
With ActiveSheet.UsedRange
.Copy
.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
End With
End Sub

 

[Norman Jones]

Hi Rich,

With ActiveSheet.UsedRange

should read:

 

[Gord Dibben]

Rich

Sub Copy_OnTop()
With ActiveSheet
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With

End Sub

Macro Recorder is a great tool..........

Gord Dibben Excel MVP