Macro to Create Dated Worksheets

Here's a slight rewrite of this... it simply asks for the starting date and how many sheets you want, then it creates them in the active workbook:

Option Explicit

Sub AddDatedSheets()
Dim NewSh    As Long
Dim HowMany  As Long
Dim Start    As Date
   
    Start = Application.InputBox(prompt:="Enter the starting date for new sheets", _
                Type:=1, Default:=Format(Date, "mmmm dd, yyyy"))
    If Year(Start) < 2005 Or Year(Start) > 2010 Then Exit Sub
   
    HowMany = Application.InputBox(prompt:="How many sheets to create?", _
                Type:=1, Default:=10)
    If HowMany = 0 Then Exit Sub
   
    For NewSh = 1 To HowMany
        Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
             .Name = Format(Start - 1 + NewSh, "yyyy_mm_dd")
    Next NewSh
       
End Sub