Apply Template to all sheets in vba

[austinpcherry]

I am creating a daily planner. So far I have been able to create a new worksheet and then create pages for every day in the given month. I am using:

Sub DoDays()    Dim J As Integer
    Dim K As Integer
    Dim sDay As String
    Dim sTemp As String
    Dim iTarget As Integer
    Dim dBasis As Date


    iTarget = 13
    While (iTarget < 1) Or (iTarget > 12)
        iTarget = Val(InputBox("Numeric month?"))
        If iTarget = 0 Then Exit Sub
    Wend


    Application.ScreenUpdating = False
    sTemp = Str(iTarget) & "/1/" & Year(Now())
    dBasis = CDate(sTemp)
    
    For J = 1 To 31
        sDay = Format((dBasis + J - 1), "mm-dd-yyyy")
        If Month(dBasis + J - 1) = iTarget Then


            If J <= Sheets.Count Then
                If Left(Sheets(J).Name, 5) = "Sheet" Then
                    Sheets(J).Name = sDay
                Else
                    Sheets.Add.Move after:=Sheets(Sheets.Count)
                    ActiveSheet.Name = sDay
                End If
            Else
                Sheets.Add.Move after:=Sheets(Sheets.Count)
                ActiveSheet.Name = sDay
            End If
        End If
    Next J


    For J = 1 To (Sheets.Count - 1)
        For K = J + 1 To Sheets.Count
            If Right(Sheets(J).Name, 10) > _
              Right(Sheets(K).Name, 10) Then
                Sheets(K).Move Before:=Sheets(J)
            End If
        Next K
    Next J


    Sheets(1).Activate
    Application.ScreenUpdating = True
End Sub

I want to be able to use a saved template on each sheet that has been created. I can't seem to figure it out though.
Thanks for your help in advance.

 

[sstiebinger]

instead of Sheets.Add.Move use Sheets.Copy and have it copy the template.

 

[austinpcherry]

Can I access an actual template using Sheets.copy?

 

[dmt32]

Can I access an actual template using Sheets.copy?

assuming template sheet is in the workbook then try changing this line:

Sheets.Add.Move after:=Sheets(Sheets.Count)

to this:

Sheets("TEMPLATE").Copy after:=Sheets(Sheets.Count)

Where TEMPLATE is the name of the template worksheet you want to copy - CHANGE name as required.


Dave

 

[austinpcherry]

I gave up and moved the template into the workbook. I was trying to use an actual Excel Template to do this so I could make one for everyone in the household. This will work though.
Thanks for the help.