Here is something you can work with,
Sub Button1_Click()
Dim worksheetexists As Boolean
Dim s As String
Dim Sh As Worksheet, rng As Range
Set Sh = Sheets("Form")
Set rng = Sh.Range("A1:O100")
s = sh.Range("B2")
worksh = Application.Sheets.Count
worksheetexists = False
For x = 1 To worksh
If Worksheets(x).Name = s Then
worksheetexists = True
MsgBox s & ", already Exists"
Exit For
End If
Next x
If worksheetexists = False Then
Sheets.Add after:=Worksheets(Worksheets.Count), Count:=1
ActiveSheet.Name = s
rng.Copy
Sheets(s).Range("A1").PasteSpecial xlPasteAll
Application.CutCopyMode = fasle
End If
End Sub
Bookmarks