Copy a template sheet to end of workbook using a InputBox to rename

Hi, my first post and only new to VBA so if I'm in the wrong area or haven't supplied enough info I apologise !!

I want to have a button set up so users can click it - a inputbox opens up "Enter New Sheet Name" then once you type that in it copies the two template sheets I have set up and pastes them to the end of the workbook with the entered name followed by "_Form" and "Chart"


This is what I currently have -

Sub New_Prism()
    
    
    Dim sName As String
    Dim wks_form As Worksheet
    Dim wks_chart As Worksheet
       
    Set wks_form = Worksheets("Form_Template")
    wks_form.Copy After:=Sheets(Sheets.Count)

    Set wks_form = ActiveSheet
    Do While sName <> wks.Name
        sName = Application.InputBox _
          (Prompt:="Enter new worksheet name")
        On Error Resume Next
        wks.Name = sName & "_Form"
        On Error GoTo 0
    Loop
    Set wks = Nothing
End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

It creates the one sheet I have in the macro but then gets stuck in a loop...?

Any help would be really appreciated!!

Thank you in advance