Create 12 worksheets named after each month

[owuraku]

Guys this pretty straight forward. I have a code that generates only the first three worksheets and names them after the first 3 months. I want to extend it to include all 12 months.

Here's my code:

Sub Mnth()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
   Sheets(i).Name = MonthName(i)
Next
End Sub
 

[owuraku]

Dont bother y'all. Figured it out!

[GazMathias]

Dont bother y'all. Figured it out!

Its always nice to see a solution to a problem.

Anywho, I came up with this:

Sub createbooks()
Dim x As Integer
Dim i As Integer
 
For i = 1 To 11
If i = ActiveWorkbook.Sheets.Count Then
     ActiveWorkbook.Sheets.Add
    End If
Next
 
For x = 1 To ActiveWorkbook.Sheets.Count
   Sheets(x).Name = MonthName(x)
Next
End Sub

Would be nice to get that in one loop, but I figure this is better as it takes advantage of the way Excel inserts a sheet before the current one.

The first For loop only goes to eleven, because a workbook must contain at least one visible worksheet.

Gaz.