Hola

Tengo el sigueinte problema:

He creado el siguiente codigo:

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 07/11/2007 by ROJASH
'
' Keyboard Shortcut: Ctrl+d
'

Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCutomMenu As CommandBarControl

On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("&Reportes e Indicadores").Delete
On Error GoTo 0

 Set cbMainMenuBar = _
     Application.CommandBars("Worksheet Menu Bar")
 

 iHelpMenu = _
     cbMainMenuBar.Controls("Help").Index
   'CREAR NUEVO MENU'

 Set cbcCutomMenu = _
     cbMainMenuBar.Controls.Add(Type:=msoControlPopup, _
                  Before:=iHelpMenu)
     cbcCutomMenu.Caption = "&Menu nuevo"
   

 With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
                .Caption = "Reporte"
.OnAction = "MyMacro1"'
 End With
   
End Sub

Sub Auto_Open()
Application.Run ("Macro2")

End Sub
Sub Auto_Close()
On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("&Reportes e Indicadores").Delete
    On Error GoTo 0

End Sub

Corre perfectamente, el uncio inconveniente es que deseo que tambien se puedea usar en un excel configurado en español (que sirva pa los 2 idiomas ingles y español es etsrictamente necesario) pero por el "help" resaltado en negrita aparece un error.

He escuchado que existe un codigo que cambia de idioma el codigo dependieno del exccel donde se corra y asi si funcionaria.

Quisiera que por favro me facilitaran este codigo o en su defecto ver sus opiniones al respecto u otras soluciones

gracias