Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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