Copy & Rename Multiple Sheets

[eforti]

Hello All,
I'm interested in creating some VBA to copy multiple worksheets while also allowing a user to edit the names.

I have the following worksheets
- Template
- Template Timeline

I would like to create a macro that copies them into the same workbook (moved to end) with a popup that allows the user to enter an alternative to the word Template. So the user could enter something into the popup like "Magic" and the newly copied sheets would show
- Magic
- Magic Template

Any help would be appreciated!

 

[mumps]

Try:

Sub CopySheets()
    Application.ScreenUpdating = False
    Dim reponse As String
    response = InputBox("Please enter an alternative for 'Template'")
    If response = "" Then Exit Sub
    Sheets("Template").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = response
    Sheets("Template Timeline").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = response & " Timeline"
    Application.ScreenUpdating = True
End Sub

 

[eforti]

Thank you for the quick response mumps, this works perfectly

Much appreciated

 

[mumps]

My pleasure.