Макросы в Excel

Sub CreateMenuFaceID()
    ' создание меню ЗНАЧКИ с образцами кнопок панели инструментов
   Dim NewMenu As CommandBarPopup, MenuItem As CommandBarControl, Submenuitem As CommandBarButton
    Call DeleteMenuFaceID
    Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
    NewMenu.Caption = "Значки": maxCount = 40: maxGroup = 8: N = maxGroup * maxCount
    For j = 0 To 20
        Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup)
        With MenuItem: .Caption = j * N + 1 & " - " & (j + 1) * N: .BeginGroup = True:: End With

        For i = 0 To maxGroup - 1
            Set MenuItem2 = MenuItem.Controls.Add(Type:=msoControlPopup)
            With MenuItem2: .Caption = 1 + j * N + maxCount * i & " - " & j * N + maxCount * (i + 1): End With
            For ii = j * N + 1 + maxCount * i To j * N + maxCount * (i + 1)
                Set Submenuitem = MenuItem2.Controls.Add(Type:=msoControlButton): DoEvents
                With Submenuitem: .Caption = "FaceId = " & ii: .FaceID = ii: End With
            Next ii
        Next i
    Next j
End Sub

Sub DeleteMenuFaceID(): On Error Resume Next
    ' удаление меню ЗНАЧКИ с образцами кнопок панели инструментов
   Dim cbc As CommandBarControl
    For Each cbc In CommandBars(1).Controls
        If cbc.Caption = "Значки" Then cbc.Delete
    Next:
End Sub