Добавление макросов в личную книгу Personal.XLSB

'Добавить пользовательскую панель инструментов
'при запуске книги Excel
Sub Auto_Open()
Dim comBar As CommandBar
Dim comBarBut As CommandBarButton
Dim mnuXXX As CommandBarControl
Dim n As Long, СtlName As String
 
       СtlName = "Розподіл навантаження"
 
       Set comBar = CommandBars("WorkSheet Menu Bar")
 
       For n = 1 To comBar.Controls.Count
           If comBar.Controls(n).Caption = СtlName Then Exit Sub
       Next
 
       Set mnuXXX = comBar.Controls.Add(Type:=msoControlPopup, Temporary:=True, Before:=n)
 
       With mnuXXX
 
            .Caption = СtlName
 
            With .Controls.Add(Type:=msoControlButton)
                 .BeginGroup = True
                 .Caption = "Почати розподіл"
                 .OnAction = "Start_Form"
                 .FaceId = 636
            End With
 
            With .Controls.Add(Type:=msoControlButton)
                 .BeginGroup = True
                 .Caption = "Про автора"
                 .OnAction = "About"
                 .FaceId = 59
            End With
 
       End With
End Sub