Creating Sheets from List IF sheet doesn't already exist

[Felix1980]

Hello, I am trying to create a code to go through a list (could be hundreds of cells) and add a new sheet when the cell is not already the name of a sheet. I started with the following code which works :

Sub TestSheetCreate()
'Creates worksheets

    Dim newSheetName As String
    Dim checkSheetName As String
    
    newSheetName = Sheets("Info").Range("A2")

    On Error Resume Next
    checkSheetName = Worksheets(newSheetName).Name
    If checkSheetName = "" Then
        'create new worksheet
        Worksheets.Add.Name = newSheetName
        
    Else
        'worksheet exists so do nothing

    End If
End Sub

and tweak it to go through a column instead of just one cell. What I have doesn't seem to move on from the first cell and errors out, though I cannot figure out why.

Sub TestSheetCreate2()
'Creates worksheets

Dim newSheetName As String
Dim checkSheetName As String
Dim xRg As Range
    
    For Each xRg In ActiveWorkbook.Sheets("Info").Range("B2:B6")
        newSheetName = xRg
        checkSheetName = Worksheets(newSheetName).Name
            If checkSheetName = "" Then
                'create new worksheet
                Worksheets.Add.Name = newSheetName
            Else
                'worksheet exists so do nothing
            End If

    Next
    
End Sub

If someone could show me what I'm doing incorrectly it would be greatly appreciated. The end result would be calling this from the "Final" workbook to pull the sheet names from a "download" workbook and create the sheets in the "Final" workbook.

 

[mrshl9898]

Try:

Sub SheetCreate()

Dim newSheetName As String

    On Error Resume Next
    For Each cell In ActiveWorkbook.Sheets("Info").Range("B2:B6")
        newSheetName = cell.Value
        WorksheetExists = False
        For Each Sheet In Worksheets
            If Sheet.Name = newSheetName Then
            WorksheetExists = True
        GoTo nextcell
        End If
    Next Sheet
        Worksheets.Add.Name = newSheetName
nextcell:
    Next

End Sub

 

[Felix1980]

This appears to be creating worksheets but not naming them from the cells, just "Sheet3", "Sheet4", etc.

 

[mrshl9898]

Working here... What happens when you step through the code (F8) and hover the mouse over newSheetName after it is assigned a value?

 

[Felix1980]

I figured out the problem. A previous code, was not correctly switching the column to text from date, just the first line. I corrected that and it now your code works! Thank you!