Add worksheet duplicate name error

[zooka]

Hello! I am using the below code to insert new worksheets based on a list. The problem is, whenever I add a new client to the list, and run the code, I get error 1004 That name is already taken. I would like to get some help in order the code to skip the sheets already made and only add the new values.

Sub CreateSheetsFromList()
Dim ws As Worksheet, Ct As Long, c As Range
Set ws = Worksheets("minta")
Application.ScreenUpdating = False
For Each c In Sheets("kliensek").Range("A2:A50")
If c.Value <> "" Then
ws.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
Ct = Ct + 1
End If
Next c
If Ct > 0 Then
MsgBox Ct & " új kliens hozzáadva"
Else
MsgBox "Klienslista üres!"
End If
Application.ScreenUpdating = True
End Sub

 

[zooka]

Hello! I am using the below code to insert new worksheets based on a list. The problem is, whenever I add a new client to the list, and run the code, I get error 1004 That name is already taken. I would like to get some help in order the code to skip the sheets already made and only add the new values.

Sub CreateSheetsFromList()
Dim ws As Worksheet, Ct As Long, c As Range
Set ws = Worksheets("minta")
Application.ScreenUpdating = False
For Each c In Sheets("kliensek").Range("A2:A50")
If c.Value <> "" Then
ws.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
Ct = Ct + 1
End If
Next c
If Ct > 0 Then
MsgBox Ct & " új kliens hozzáadva"
Else
MsgBox "Klienslista üres!"
End If
Application.ScreenUpdating = True
End Sub

Found the answer on the forum. Thank you!

 

[Alex Blakenburg]

Did it look anything like this:

Sub CreateSheetsFromList()
    Dim ws As Worksheet, Ct As Long, c As Range
    Dim wsTestExist As Worksheet
    Set ws = Worksheets("minta")
    Application.ScreenUpdating = False
    For Each c In Sheets("kliensek").Range("A2:A50")
        If c.Value <> "" Then
            On Error Resume Next
                Set wsTestExist = Worksheets(c.Value)
                If Err <> 0 Then
                    ws.Copy after:=Sheets(Sheets.Count)
                    ActiveSheet.Name = c.Value
                    Ct = Ct + 1
                End If
            On Error GoTo 0
            Set wsTestExist = Nothing
        End If
    Next c
    If Ct > 0 Then
        MsgBox Ct & " új kliens hozzáadva"
    Else
        MsgBox "Klienslista üres!"
    End If
    Application.ScreenUpdating = True
End Sub

 

[EXCEL MAX]

Something similar

Sub CreateSheetsFromList()

    Dim ws As Worksheet, Ct As Long, c As Range
    Set ws = Worksheets("minta")
    Application.ScreenUpdating = False
    For Each c In Sheets("kliensek").Range("A2:A5")
        If c.Value <> "" Then
            Dim vWS As Worksheet
            For Each vWS In ActiveWorkbook.Worksheets
                If vWS.Name = c.Value Then GoTo EX:
            Next vWS
            ws.Copy after:=Sheets(Sheets.Count)
            ActiveSheet.Name = c.Value
            Ct = Ct + 1
EX:  End If
    Next c
    If Ct > 0 Then
        MsgBox Ct & " új kliens hozzáadva"
    Else
        MsgBox "Klienslista üres!"
    End If
    Application.ScreenUpdating = True

End Sub

 

[Alex Blakenburg]

Thanks for posting that. I was trying to avoid looping through all the sheets on each pass. If you have a large number of sheets it may slow the macro down.
PS: Now that you have posted the actual code you are going to use, you can mark your own post that shows the code as a solution.