te envio el codigo completo
Option Explicit
Sub CreateMenu()
Dim cb As CommandBar
Dim cbMenu As CommandBarControl
Dim cbSubMenu As CommandBarControl
Dim cbSubSubMenu As CommandBarControl
DeleteCommandBar
Set cb = Application.CommandBars.Add("MyCommandBarName", msoBarTop, True, True)
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&EJERCICIO FISCAL"
.Tag = "MyTag"
.BeginGroup = False
"AQUI EL Face"
End With
'''''''''' EJERCICIO FISCAL 2001 ''''''''''''''''''''
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "Ejercicio Fiscal 200&1"
.Tag = "SubMenu1"
.BeginGroup = True
"AQUI EL Face"
End With
Set cbSubSubMenu = cbSubMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubSubMenu
.Caption = "&Informativas"
.Tag = "SubMenu1"
.BeginGroup = True
"AQUI EL Face"
End With
With cbSubSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Credito al Salario"
.OnAction = ThisWorkbook.Name & "!INCAS01"
.Style = msoButtonIconAndCaption
.FaceId = 71
.Enabled = True
End With
'''''''''' MODULO DE ELIMINAR ''''''''''
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "ELIMINAR &MENU"
.BeginGroup = True
End With
If cbMenu Is Nothing Then Exit Sub
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Eliminar este &menú"
.OnAction = ThisWorkbook.Name & "!DeleteCommandBar"
.Style = msoButtonIconAndCaption
.FaceId = 67
.BeginGroup = True
End With
cb.Visible = True
Set cbSubSubMenu = Nothing
Set cbSubMenu = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub
Sub DeleteCommandBar()
On Error Resume Next
Application.CommandBars("MyCommandBarName").Delete
Application.CommandBars("Chart Menu Bar").Visible = True
On Error GoTo 0
End Sub
Sub Macroname()
'MsgBox "Workbooks.Open Filename:=(C:SIAFEJERCICIOS FISCALESEjercicio Fiscal 2001InformativasInformativa_Credito al Salario_2001.xls", vbInformation, ThisWorkbook.Name
'MsgBox "Workbooks.Open Filename:=(C:SIAFEJERCICIOS FISCALESEjercicio Fiscal 2008ConciliacionesConciliacion_Creditos_Infonavit_2008.xls", vbInformation, ThisWorkbook.Name
'MsgBox "Workbooks.Open Filename:=(C:SIAFEJERCICIOS FISCALESEjercicio Fiscal 2008NominasNomina_PAE_2008.xls", vbInformation, ThisWorkbook.Name
'MsgBox "Workbooks.Open Filename:="C:SIAFEJERCICIOS FISCALESEjercicio Fiscal 2008ConciliacionesConciliacion_Creditos_Infonavit_2008.xls"", vbInformation, ThisWorkbook.Name
End Sub
Gracias