Eliminar un menu desplegable creado con una macro
Hola Tengo un macro en excel 2003 hecha con vba, la cual crea un menu desplegable que activa otras macros, la macro se daño porque el archivo que llamaba la macro fue eliminado, ahora el menu me queda alli y no se como eliminarlo, sin desinstalar el office completo, si abro un archivo que contenia la macro y le doy eliminar no la borra y hasta elimine los modulos de vba y el menu sigue alli. Este es el codigo del modulo que creo el menu:
Sub CrearMenuDesplegable()
Dim cBar As Object
Dim cBarPopUp As Object
Dim cButton As Object
Dim i, j As Integer
'BorrarMenuDesplegable
Set cBar = CommandBars("Worksheet Menu Bar")
Set cBarPopUp = cBar.Controls.Add(Type:=msoControlPopup, _
Before:=10)
cBarPopUp.Caption = "&Gestiones"
Set cButton = cBarPopUp.Controls.Add(msoControlPopup)
cButton.Caption = "&Gestiones "
With cButton.Controls.Add(msoControlButton)
.Caption = "&Gestion Principal"
.OnAction = "Gestion_Principal"
End With
Set cButton = cBarPopUp.Controls.Add(msoControlPopup)
cButton.Caption = "&Totales "
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Compañias"
.OnAction = "Total_Compañias_1"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Categoria"
.OnAction = "Total_Categorias_2"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Casos"
.OnAction = "Total_Casos_3"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Tipos"
.OnAction = "Total_tipos_4"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Gerencia General"
.OnAction = "Total_Gerencia_General_5"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Cumplimiento"
.OnAction = "Total_Cumplimiento_6"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Pendiendes"
.OnAction = "Total_Pendientes_7"
End With
Call MsgBox("Se ha añadido la opción 'Gestiones' en el menú principal", _
vbOKOnly, "Gestiones")
End Sub
Espero me puedan ayudar. Gracias
Sub CrearMenuDesplegable()
Dim cBar As Object
Dim cBarPopUp As Object
Dim cButton As Object
Dim i, j As Integer
'BorrarMenuDesplegable
Set cBar = CommandBars("Worksheet Menu Bar")
Set cBarPopUp = cBar.Controls.Add(Type:=msoControlPopup, _
Before:=10)
cBarPopUp.Caption = "&Gestiones"
Set cButton = cBarPopUp.Controls.Add(msoControlPopup)
cButton.Caption = "&Gestiones "
With cButton.Controls.Add(msoControlButton)
.Caption = "&Gestion Principal"
.OnAction = "Gestion_Principal"
End With
Set cButton = cBarPopUp.Controls.Add(msoControlPopup)
cButton.Caption = "&Totales "
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Compañias"
.OnAction = "Total_Compañias_1"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Categoria"
.OnAction = "Total_Categorias_2"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Casos"
.OnAction = "Total_Casos_3"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Tipos"
.OnAction = "Total_tipos_4"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Gerencia General"
.OnAction = "Total_Gerencia_General_5"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Cumplimiento"
.OnAction = "Total_Cumplimiento_6"
End With
With cButton.Controls.Add(msoControlButton)
.Caption = "&Total Pendiendes"
.OnAction = "Total_Pendientes_7"
End With
Call MsgBox("Se ha añadido la opción 'Gestiones' en el menú principal", _
vbOKOnly, "Gestiones")
End Sub
Espero me puedan ayudar. Gracias