Error handling on InputBox entry when nothing is entered

Hi all,

I have some code that creates a new sheet and names it what ever the user enters into an InputBox.

It works when they enter a name.
It works when they click 'Cancel'.
But it returns a “Run-time error ‘9’@: Subscript out of range” error if you click OK without entering anything in the InputBox.

How do I stop it/loop it back after the ‘If Response = "" Then” section because it’s trying to create a sheet without a name!

I can't get my head around it! I'm trying to teach myself VBA but it's going very slowly.

Sub AddNewSheet()

    Sheets("Template").Visible = True
    Sheets("Template").Copy After:=Worksheets(Worksheets.Count)
    Sheets("Template").Visible = False
    Response = Application.InputBox("Enter the technician's name:")
    
    If Response = False Then
        Application.DisplayAlerts = False
        Sheets("Template (2)").Delete
        Sheets("Main").Select
    End If
    
    If Response = "" Then
        MsgBox "Please enter a technician's name."
        Application.DisplayAlerts = False
        Sheets("Template (2)").Delete
        Sheets("Main").Select
    End If
           
    If Response <> False Then
        Sheets("Template (2)").Name = Response
    End If

End Sub

This is how I'd arrange that...

Sub AddNewSheet()
    
    Do
        response = Application.InputBox("Enter the technician's name:", _
            "Enter Name", "John Doe", Type:=2)
        If response = False Then Exit Sub
        If response <> "" Then Exit Do
    Loop
    
    Sheets("Template").Visible = True
    Sheets("Template").Copy After:=Worksheets(Worksheets.Count)
    Sheets("Template").Visible = False
    Sheets("Template (2)").Name = response

End Sub

Hi Kungfauxn00b

Here's one way

Sub AddNewSheet()
    Sheets("Template").Visible = True
    Sheets("Template").Copy After:=Worksheets(Worksheets.Count)
    Sheets("Template").Visible = False
    Response = Application.InputBox("Enter the technician's name:")
 
    If Response = False Then
        Application.DisplayAlerts = False
        Sheets("Template (2)").Delete
        Sheets("Main").Select
    End If
 
    If Response = "" Then
        MsgBox "Please enter a technician's name."
        Application.DisplayAlerts = False
        Sheets("Template (2)").Delete
        Sheets("Main").Select
        Exit Sub
    End If
 
    If Response <> False Then
        Sheets("Template (2)").Name = Response
    End If
End Sub

Awesome, thanks guys!