Option Explicit
Public Const CommandbarName = "Моя панель инструментов" ' уникальное название панели инструметов
Sub CommandBarBuilder()
Dim cb As CommandBar, cbButton As CommandBarButton
Set cb = Application.CommandBars.Add(Name:=CommandbarName, Position:=msoBarTop, MenuBar:=False, temporary:=True) ' добавим панель инструметов
Set cbButton = cb.Controls.Add(Type:=msoControlButton, temporary:=True) ' дабавим кнопку на панель инструметов
        cbButton.Caption = "Кнопка1"
        cbButton.FaceId =  125  ' "изображение", "иконка" кнопки
        cbButton.Tag = "Краткое описание" ' надпись, появляющаяся при наведении курсора мыши на кнопку
        cbButton.OnAction = "macros" ' название процедуры, выполняемой при нажатии на кнопку
Application.CommandBars(CommandbarName).Visible = True
End Sub
'------------------------------------------------------------
Sub CommandBarKiller()
    On Error Resume Next
        Application.CommandBars(CommandbarName).Delete
    On Error GoTo  0 
End Sub

Option Explicit
Private Sub Workbook_Open()
Call CommandBarKiller
Call CommandBarBuilder
End Sub
'------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call CommandBarKiller
End Sub

Sub AllFace()
Dim cb As CommandBar, cbBtn As CommandBarButton, i As Integer
On Error Resume Next
Set cb = Application.CommandBars.Add(name:="AllFaces", temporary:=True)
cb.Visible = True
For i =  1  To  1000 
    Set cbBtn = cb.Controls.Add(Type:=msoControlButton, ID:= 2950 )
    cbBtn.FaceId = i
    cbBtn.Caption = i
Next
cb.Width =  1000 
End Sub
'код, не комменировать, написан криво, просто править не охото... и так работает!!!