Create worksheets from rows with text on Sheet 1 that doesn't the "(" character

[rdoulaghsingh]

Good afternoon! I have a workbook with a worksheet (Sheet 1). I'm trying to copy the text in all rows starting at A2 to the end of column A without the character "(" in it and create a worksheet for each corresponding text value from each row in Sheet 1. So if A2 has the word "Test" in it, the macro should create a worksheet/tab labeled "Test" as long as the cell doesn't contain an open parenthesis in it. Please help!

 

[rdoulaghsingh]

Nevermind. Figured it out.

Sub CreateSheetsfromRows()
 
Dim rng As Range
Dim cell As Range
On Error GoTo Errorhandling
 
Set rng = Application.InputBox(Prompt:="Select cell range:", _
Title:="Create sheets", _
Default:=Selection.Address, Type:=8)
 
For Each cell In rng
 
        If InStr(1, cell.Value, "(") = 0 And cell <> "" Then
  
 
        Sheets.Add(After:=Sheets(Sheets.Count)).Name = cell
    End If
 
Next cell
 
Errorhandling:

 

End Sub