Copy sheet multiple times and rename with user input

[exsoil]

Hello all,

I am trying to find a macro that allows me to copy my template sheet (JNH) multiple times but rename it based on a user input box. I can find macros that give input boxes to determine how many times to copy the template sheet and macros that give a user input box to rename a single sheet, but I cannot find a way to combine the two. My template sheet is "JNH". I want to copy the sheet, say, 5 times and have an input box pop up where I can type 5 custom names

 

[jolivanes]

Sub Maybe()
Dim i As Long, shName As String, a As String
a = ActiveSheet.Name
    For i = 1 To Application.InputBox("How many copies?", "Making Copies", 1, , , , 1)
        shName = Application.InputBox("Name of copy #" & i, "Naming Sheet", , , , , 2)
            Application.ScreenUpdating = False
                Sheets("JNH").Copy After:=Sheets(Sheets.Count)
                    ActiveSheet.Name = shName
                Sheets(a).Select
            Application.ScreenUpdating = True
    Next i
End Sub

 

[jolivanes]

Another possibility if you want.
Enter names separated by a comma and sheets will be added by that amount.

Sub Maybe_2()
Dim i As Long, shName As String, a As String, nameArr
a = ActiveSheet.Name
shName = Application.InputBox("Enter all names separated by comma.", "Names For Sheets", , , , , 2)
Application.ScreenUpdating = False
nameArr = Split(shName, ",")
    For i = LBound(nameArr) To UBound(nameArr)
        Sheets("JNH").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Trim(nameArr(i))
    Next i
Sheets(a).Select
Application.ScreenUpdating = True
End Sub

 

[exsoil]

Another possibility if you want.
Enter names separated by a comma and sheets will be added by that amount.

Sub Maybe_2()
Dim i As Long, shName As String, a As String, nameArr
a = ActiveSheet.Name
shName = Application.InputBox("Enter all names separated by comma.", "Names For Sheets", , , , , 2)
Application.ScreenUpdating = False
nameArr = Split(shName, ",")
    For i = LBound(nameArr) To UBound(nameArr)
        Sheets("JNH").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Trim(nameArr(i))
    Next i
Sheets(a).Select
Application.ScreenUpdating = True
End Sub

Thanks so much Jolivanes!!
This VBA business is over my head but both of your solutions worked perfectly!! I think the comma separated one is my pick. Again, much appreciation!

 

[jolivanes]

Perseverance will get you there.
Thanks for letting us know and good luck.