Microsoft Office Tutorials and References
In Depth Information
Lesson Requirements
‘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.
Next intMonth
End Sub
To view the video that accompanies this lesson, please select Lesson 9, available at
the following website: www.wrox.com/go/excelvba .
Search JabSto ::




Custom Search