Question : Add a worksheet with name of cell value

In cells A3 thru A10 I want to enter a name, if there is a tab with that name do nothing end of routine, if not create a work sheet with that name.

Answer : Add a worksheet with name of cell value

Try this, it will loop through A3:A10 and create all sheets that don't already exist.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:



Sub AddWorksheets()

    Dim i As Integer

    For i = 3 To 10
        If Not WorksheetExists(Sheets("Sheet1").Cells(i, 1).Value) Then
            Sheets.Add
            ActiveSheet.Name = Sheets("Sheet1").Cells(i, 1).Value
        Else
        End If
    Next

End Sub

Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean

On Error Resume Next
WorksheetExists = (Sheets(WorksheetName).Name <> "")
On Error GoTo 0

End Function

Book2.xls (19 KB) (File Type Details)

Example