Sub NewMonth() Dim myWorksheet As Worksheet Worksheets(1).Copy After:=Worksheets(1) Set myWorksheet = Worksheets(2) myWorksheet.Name = Format(DateSerial(2000, 8, 1), "mmm yyyy") On Error Resume Next myWorksheet.Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents End Sub