Microsoft Office Tutorials and References
In Depth Information
‘Open a For...Next loop that starts from one and ends at twelve.
For intMonth = 1 To 12
‘With a one-line command, you can add each of the twelve worksheets in turn,
‘while placing their tabs one after another from left to right.
Sheets.Add(After:=Sheets(Sheets.Count)).Name = _
Format(DateSerial(2011, intMonth, 1), “MMMM”)
‘The Next statement for the intMonth variable
‘produces and names the next month worksheet.
To view the video that accompanies this lesson, please select Lesson 9, available at