Set Cell to Copy hidden Worksheet to End & Rename with input box

Good day,
I'm seeking assistance as I have most of the VBA code written out properly, however when creating a copy of a hidden worksheet the input box is not associating to the new worksheet and continues to want to rename the first copy worksheet. Please see the code below. Any assistance would be amazing!

Sub Group14_Click()
'
' Group14_Click Macro
' Macro recorded
'

'
    Counter = 0
    myNum = Worksheets("Info").Cells(13, 7)
    For x = 1 To myNum
        Counter = Counter - 1
    Sheets("Recipe Template").Visible = True
    Sheets("Recipe Template").Select
    Sheets("Recipe Template").Copy After:=Sheets(Sheets.Count)
    Sheets("Recipe Template").Select
    ActiveWindow.SelectedSheets.Visible = False
    Next x
  Dim newName As String
 
 newName = InputBox("Rename your Recipe, if you created more than 1 template please rename the remaining manually.", "Theoretical & True Food Cost", "Have a Great day!")
 If newName <> "" Then
    
    On Error Resume Next
    ActiveSheet.Name = newName
    End If
End Sub

Try adding this line...

...
    Sheets(Sheets.Count).Select
    ActiveSheet.Name = newName
...

This worked well! Thank you

Hello. Another way:

Sub Group14_Click()
Dim myNum As Integer, x As Integer, newName As String, ws As Worksheet

myNum = Worksheets("Info").Cells(13, 7)
Sheets("Recipe Template").Visible = True
For x = 1 To myNum
  Sheets("Recipe Template").Copy After:=Sheets(Sheets.Count)
  If x = 1 Then Set ws = ActiveSheet
Next x
Sheets("Recipe Template").Visible = False
 
newName = InputBox("Rename your Recipe, if you created more than 1 template please rename the remaining manually.", "Theoretical & True Food Cost", "Have a Great day!")
If newName <> "" Then ws.Name = newName
End Sub

However i decided to utilize this as it helps me learn a bit more about VBA. Thank you very much!!