Inserts new monthly sheet : Worksheet Add « Excel « VBA / Excel / Access / Word

Inserts new monthly sheet

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


Related examples in the same category

1.Add a new sheet with name in A1
2.Create a new sheet with month name and year as its name
3.Add a new Sheet
4.Creating a new worksheet for your workbook, and then it fills in several cells in that new worksheet.
5.Add a worksheet and append value
6.Add a worksheet and save it
7.Append a worksheet to the end of the worksheet list