Появляется дополнительный лист

Question

У меня возникла какая-то проблема в отношении excel vba, когда я вхожу в эту функцию, чтобы создать новый рабочий лист и назвал его. Но он генерирует дополнительные новые рабочие листы. Ниже приведена кодировка.

Function add_sheet_by_branch(ByVal branch As String) As String 


    For rep = 1 To (Worksheets.Count) 
     If LCase(Sheets(rep).name) = LCase(branch) Then 
      MsgBox (branch & " " & "already exists!") 
     Else 
      Sheets.Add after:=Sheets(Sheets.Count) 
     End If 
    Next 
    Sheets(ActiveSheet.name).name = branch 
    Sheets.Delete 
    add_sheet_by_branch = name 
End Function 

Спасибо за помощь. :)

Answer 1

Это то, что вы пытаетесь?

Вы создаете лист каждый раз, когда имя листа не совпадает.