Selecting If or Else

[ch46guy]

I'm trying to see if a worksheet is already created. If it is Im calling UserForm2, but if its not it will create the new sheet. When I do this I get "Compile Error: Else without If". Any help would be appreciated.

For k = 1 To Worksheets.Count
        
        If Worksheets(k).Name = BorName = True Then
        UserForm2.Show
        End If
        Exit For
        
        Else
        Worksheets.Add(After:=Sheets(Sheets.Count)).Name = BorName
        Exit For
        End If
Next k

 

[jim may]

Try:

For k = 1 To Worksheets.Count
        
        If Worksheets(k).Name = "BorName" Then
        UserForm2.Show
        Else
        Worksheets.Add(After:=Sheets(Sheets.Count)).Name = "BorName"
        Userfom2.Show
        End If
        
Next k

 

[ch46guy]

Thank you for your quick response. I tried that but I already have a worksheet created with the same name, which should break to Userform2, but it gives me an error that the sheet already exists.

 

[jim may]

Then Try,

For k = 1 To Worksheets.Count
        
        If Worksheets(k).Name = "BorName" Then
        UserForm2.Show
        Else
        On Error Resume Next
        Worksheets.Add(After:=Sheets(Sheets.Count)).Name = "BorName"
        Userfom2.Show
        End If
        On Error Goto 0
Next k

 

[mikerickson]

A loop is not needed

On Error Resume Next
If Worksheets("BorName").Name <> "BorName" Then
    Worksheets.Add(After:=Sheets(Sheets.Count)).Name = "BorName"
End If
On Error Goto 0

UserForm2.Show

 

[ch46guy]

Thank you guys.