Create and name new worksheet

[georgecomstock]

Hi I wonder if anyone could help? I want to create a new worksheet with the name being derived from the value in a cell. So, looking through the range say a2:a10 if the string value contained in any of those cells does not match the name of an existing sheet in the workbook to create a sheet using the string value found in the cell.

Hope I've made myself clear and hope that you can help. Many thanks.

 

[Sektor]

Sub CreateSheets()

    Dim cell As Range, sh As Worksheet
    
    For Each cell In Range("A2:A10")
        If Not IsEmpty(cell) Then
            If Not SheetExists(cell.Value) Then
                Set sh = Worksheets.Add
                sh.Name = cell
            End If
        End If
    Next

End Sub

Function SheetExists(SheetName As String) As Boolean
    Dim sh As Worksheet
    On Error Resume Next
    Set sh = Worksheets(SheetName)
    If Not sh Is Nothing Then SheetExists = True
End Function

 

[georgecomstock]

That is just fantastic! Thanks !