Sub CopySheetPasteAsValues() Sheets("Sheet1").Cells.Copy Sheets("Sheet1").Cells.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub