Most efficient macro to loose any formulas on whole sheet

Basically it would simulate Select all, Copy, Paste Special, values.

Sub Macro2()
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

I bet there is a simple command to achieve the same without copying just via simple macro line. Something that would be more efficient? Or is this already efficient enough?

Any ideas?


Cheers
Rain