Как сделать, чтобы пункт меню создавался, только в том случае, если его еще нет?

Option Explicit
Dim objCmdBrPopup As CommandBarPopup
 
Private Sub Workbook_Open()
Set objCmdBrPopup = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
    With objCmdBrPopup
        .Caption = "Баланс"
        With .Controls
            With .Add(Type:=msoControlButton)
                .Caption = "Новый лист"
                .OnAction = "AddNewSheet_Run"
            End With
 
            With .Add(Type:=msoControlButton)
                .Caption = "Период"
                .OnAction = "Period_Run"
            End With
 
            With .Add(Type:=msoControlButton)
                .Caption = "Отчет"
                .OnAction = "Report_Run"
            End With
 
            With .Add(Type:=msoControlButton)
                .Caption = "Список поставщиков"
                .OnAction = "ListC_Run"
            End With
        End With
    End With
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    objCmdBrPopup.Delete
End Sub

Dim objCmdBrPopup As CommandBarPopup
 
Private Sub Workbook_Open()
flag = False
For Each bar In Application.CommandBars("Worksheet Menu Bar").Controls
    If Not bar.BuiltIn Then
    flag = True
    End If
Next
If flag = False Then create_menu
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    objCmdBrPopup.Delete
End Sub
 
Sub create_menu()
Set objCmdBrPopup = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
    With objCmdBrPopup
        .Caption = "Áàëàíñ"
        With .Controls
            With .Add(Type:=msoControlButton)
                .Caption = "Íîâûé ëèñò"
                .OnAction = "AddNewSheet_Run"
            End With
            With .Add(Type:=msoControlButton)
                .Caption = "Ïåðèîä"
                .OnAction = "Period_Run"
            End With
            With .Add(Type:=msoControlButton)
                .Caption = "Îò÷åò"
                .OnAction = "Report_Run"
            End With
            With .Add(Type:=msoControlButton)
                .Caption = "Ñïèñîê ïîñòàâùèêîâ"
                .OnAction = "ListC_Run"
            End With
        End With
    End With
End Sub

Application.CommandBars("Worksheet Menu Bar").Reset

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    objCmdBrPopup.Delete
End Sub

Private Sub Workbook_Activate()
    Application.CommandBars("Worksheet Menu Bar").Controls("Баланс").Visible = True
End Sub
 
Private Sub Workbook_Deactivate()
    Application.CommandBars("Worksheet Menu Bar").Controls("Баланс").Visible = False
End Sub

Dim objCmdBrPopup As CommandBarPopup
 
' Проверка, есть ли меню с именем sMenuName.
' Если нет, то создаем меню с именем sMenuName и подменю из массива arrSubmenus()
Public Sub CreateMenuIfNotExist(sMenuName, arrSubmenus())
flag = True
For Each bar In Application.CommandBars("Worksheet Menu Bar").Controls
    If bar.Caption = sMenuName Then
        flag = False
    End If
Next
If flag = True Then Call create_menu(sMenuName, arrSubmenus())
End Sub
 
' Удаление меню, созданного при открытии этой книги.
Public Sub DeleteMenu(Cancel As Boolean)
    If Not objCmdBrPopup Is Nothing Then
        objCmdBrPopup.Delete
    End If
End Sub
 
' Создание меню с именем sMenuName и подменю из массива arrSubmenus()
' arrSubmenus(0, i): название подменю
' arrSubmenus(1, i): ассоциированный макрос
' arrSubmenus(2, i): если = True, то начать новую группу
Sub create_menu(sMenuName, arrSubmenus())
Set objCmdBrPopup = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
    With objCmdBrPopup
        .Caption = sMenuName
        For i = 0 To UBound(arrSubmenus, 2)
            With .Controls
                With .Add(Type:=msoControlButton)
                    .Caption = arrSubmenus(0, i) 'submenu name
                    .OnAction = arrSubmenus(1, i) 'submenu macro
                    .BeginGroup = arrSubmenus(2, i) 'begin a new group
                End With
            End With
        Next i
    End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call DeleteMenu(Cancel)
End Sub
 
Private Sub Workbook_Open()
    Dim arrTest1Submenus()
    ReDim arrTest1Submenus(2, 2)
    arrTest1Submenus(0, 0) = "submenu 1"
    arrTest1Submenus(1, 0) = "macro 1"
    arrTest1Submenus(2, 0) = False
    arrTest1Submenus(0, 1) = "submenu 2"
    arrTest1Submenus(1, 1) = "macro 2"
    arrTest1Submenus(2, 1) = False
    arrTest1Submenus(0, 2) = "submenu 3"
    arrTest1Submenus(1, 2) = "macro 3"
    arrTest1Submenus(2, 2) = True
    Call CreateMenuIfNotExist("test", arrTest1Submenus())
End Sub

' Проверка, загружена ли надстройка. Если нет, загружаем ее.
Sub AddInCheck()
    On Error Resume Next    ' turn off error checking
    Set wbMyAddin = Workbooks("CreateCustomMenu.xla")
    lastError = Err
    On Error GoTo 0        ' restore error checking
    If lastError <> 0 Then
        ' the add-in workbook isn't currently open. Manually open it.
        Set wbMyAddin = Workbooks.Open("CreateCustomMenu.xla")
    End If
End Sub

    Workbooks("CreateCustomMenu.xla").Application.Run "CreateMenuIfNotExist", "test2", arrTest1Submenus()