Название надстроек

Sub Создание_меню_за_стандартными_пунктами_меню_Файл_Правка_Вид_Вставка_Формат_Сервис_Таблица_Окно_Справка()
 
    Dim strTag As String
    Dim i As Long
    'массив процедур, которые будут выполнять кнопки создаваемого меню
    Dim arrProcs As Variant
    arrProcs = Array("Надстройка1", "Надстройка2", "Надстройка3")
    'массив всплывающих подсказок, которые будут отображаться при наведении на пункт создаваемого меню
    Dim arrHint As Variant
    arrHint = Array("Надстройка1", "Надстройка2", "Надстройка3")
 
    strTag = "MyControl"
 
    With Application.CommandBars("Menu Bar")
 
        'MsgBox$ .Controls.Count
 
        On Error Resume Next
        For i = 1 To .Controls.Count
            'удаляет ранее созданные меню
            .FindControl(Type:=msoControlPopup, Tag:=strTag, Recursive:=True).Delete
            .FindControl(Type:=msoControlButton, Tag:=strTag, Recursive:=True).Delete
        Next i
        On Error GoTo 0
        For i = 1 To 3
            With .Controls.Add(Type:=msoControlButton, Temporary:=True)
                .Tag = strTag
                .Enabled = False
                'IIf это эквивалент функции IF с тем же синтаксисом
                'условие если i = 1, тогда 1, в противном случае 0
                'иными словами - первый пробел, отступ от последнего стандартного меню Справка - 1, остальные - 0
                .Width = IIf(i = 1, 1, 0)
            End With
            With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
                .Tag = strTag
                '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
                'вызывается при нажатом Alt + ...
                .Caption = "Надстройка" & "&" & i
                'возле стандартного меню, например, Справка, ставим курсор мыши, щелчок правой кнопкой мыши
                'Настройка > Параметры, флажок Отображать подсказки для кнопок
                'текст всплывающей подсказки
                .TooltipText = arrHint(i - 1)
                'имя макроса, который будет выполняться
                .OnAction = arrProcs(i - 1)
            End With
        Next i
    End With
 
    MsgBox$ "End"
 
End Sub