Monthly Sheets

[Sumeluar]

Good day all!

What's a friendly way to create a workbook with 12 sheets, one each per month complete with the name of the month and year?

If at all possible an option to choose the year, would be awesome.

Any ideas ...Appreciate it!

Regards!

Sumeluar

 

[texasalynn]

take a look at this and see if it might work
http://www.mrexcel.com/board2/viewtopic.php?t=230073

 

[Sumeluar]

Thanks Texasalynn, I gave it a try. Not quite what I'm looking for.

Regards!

 

[Tom Urtis]

Sub Test1()
Dim myYear$
myYear = InputBox("Enter a 4-digit year:", "Year", Format(Date, "YYYY"))
If myYear = "" Then Exit Sub
If Len(myYear) <> 4 Or IsNumeric(myYear) = False Then
MsgBox "Enter a 4-digit year.", 48, "Get with the program!"
Exit Sub
End If
Application.ScreenUpdating = False
Dim i%
Workbooks.Add 1
For i = 2 To 12
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(DateSerial(Val(myYear), i, 1), "MMMM YYYY")
Next i
Sheets(1).Activate
ActiveSheet.Name = "January " & myYear
Application.ScreenUpdating = True
End Sub

 

[Sumeluar]

Thanks Tom, that is exactly what I need. Great work!

Kind regards, Sumeluar