Sub criandoMenus()

   Dim cmdBar   As CommandBar

   Dim mnu      As CommandBarPopup

   Dim btn      As CommandBarButton

   On Error Resume Next 'Continua a execução mesmo que haja um erro

   'Deleta o menu anterior se ele existir

   CommandBars("Criando Menus").Delete

   'Adiciona o objeto cmdBar a coleção de barras de comando do Excel

   'A barra adicionada está posicionada como "msoBarFloating".

   'Outras opções de posicionamento incluem:

   'msoBarTop, msoBarLeft, msoBarRight e msoBarBottom

    Set cmdBar = CommandBars.Add(Name:="Criando Menus", _

                 Position:=msoBarFloating)

    'Adiciona um botão a barra de comando cmdBar

    Set btn = cmdBar.Controls.Add(Type:=msoControlButton)

       btn.FaceId = 326 'Define a figura a ser mostrada no botão

    ' Adiciona um "menu" a barra de comando cmdBar

    Set mnu = cmdBar.Controls.Add(Type:=msoControlPopup)

      With mnu

        .Caption = "meu menu" 'Define o nome a ser exibido no menu

      End With

    Set btn = mnu.Controls.Add(Type:=msoControlButton)

       btn.FaceId = 984

    Set mnu = cmdBar.Controls.Add(Type:=msoControlPopup)

       With mnu

         .Caption = "Seu menu"

       End With

    cmdBar.Visible = True 'Exibe a barra de comando cmdBar

End Sub