Quickly Creating New Sheets/Templates

[aagold]

Hello,

Is there an efficient way to automatically duplicate a sheet many times while updating the sheet name?

Essentially, I would like to work on a single sheet called "Project 1" and recreate 19 others with the names "Project 2", "Project 3"...and so on to 20.

Is there a simple macro that can get this done?

Thank you.

 

[VoG]

Try

Sub test6()
Dim i As Long
For i = 1 To 19
    Sheets("Project 1").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Project " & i + 1
Next i
End Sub