Private Sub Workbook_Open()
Dim cbMenuBar As CommandBar

Set cbMenuBar = Application.CommandBars.Add("Финансы", msoBarTop, False, True)

With cbMenuBar
.Visible = True

    With .Controls

        With .Add(msoControlPopup)
        .Caption = "Остатки"

            With .Controls

             With .Add(msoControlButton)
                .Caption = "Проверка магазинов"
                .OnAction = "ProverkaMagazinov"
             End With

             With .Add(msoControlComboBox)
                .Caption = "Остатки магазинов"
                .AddItem "'Электрик-1"
                .AddItem "'Электрик-2"
                .AddItem "'Электротовары"
                .OnAction = "OstatkiMagazinov"
              End With

            End With
        End With
    End With
End With

End Sub