Using TextBox1 field in userform to name and add new worksheet.

Hello,

I am struggling on how to get my code to work. I want it to use a field from a user form to create a new worksheet and rename it whatever is in the field. What I am getting stuck on is how to make the code check if that name is already taken...If it isn't then go ahead and create it, if not, give msgbox.

HTML Code: 

Userform module

Private Sub CommandButton1_Click()
Dim ws As Worksheet
If sheetExists(TextBox1.Value) = True Then
MsgBox "Sheet Exists"
Exit Sub
Else
Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
    ws.Name = TextBox1.Value
    TextBox1.Value = ""
End If
End Sub

Module

Function sheetExists(sheetToFind As String) As Boolean
Dim Sheet As Worksheet
    sheetExists = False
    For Each Sheet In Worksheets
        If sheetToFind = Sheet.Name Then
            sheetExists = True
            Exit Function
        End If
    Next Sheet
End Function

Thank you so much!

I didn't realize I had to separate them out like that!

Glad to help, thanks for rep and marking as solved

Private Sub CommandButton1_Click()
Dim ws As Worksheet
If sheetExists(TextBox1.Value) = True Then
MsgBox "Sheet Exists"
Exit Sub
Else
Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
    ws.Name = TextBox1.Value
        


        With ws
Sheets("Table Template").ListObjects("Table1").Range.Copy Destination:=.Range("c13")
        End With
    TextBox1.Value = ""
End If
End Sub

Thank you but for some reason it makes the table all squished

Perhaps I need to aut0fit?

Yes that got it!


Again, thank you so much.