Sub menu()
   With Application.CommandBars.Add(Name:="test", Position:=msoBarLeft, Temporary:=True)
       .Visible = True
       With .Controls
           With .Add(msoControlButton)
               .St yle = msoButtonIcon
               .FaceId = 2060
               .On Action = "test1"
           End With
           With .Add(msoControlPopup)
               .Caption = "список"
           End With
       End With
   End With
End Sub