I try again with a shorter comment

I have done the following:
1. Made many code in VBA for aplications Ok
2. Saved these code as addin "'.xla" OK
3. Generate menu in the "Worksheet Menu Bar" OK
4. The the Macro eq. "goto_home" or program is called by <.OnAction = "goto_home">.
My problem is that excel do not find the "goto_home"

Is it some one that have any suggestion of what is going wrong?




Sub AddcustomMenu()

Dim cbWsMenuBar As CommandBar
Dim muCustom As CommandBarControl
Dim iHelpIndex As Integer

Set cbWsMenuBar = CommandBars("Worksheet Menu Bar")
iHelpIndex = cbWsMenuBar.Controls("Help").Index
Set muCustom = cbWsMenuBar.Controls.Add(Type:=msoControlPopup, before:=iHelpIndex)
With muCustom
    .Caption = "&Go To"
    With .Controls.Add(Type:=msoControlButton)
            .Caption = "Et &Go Home"
            .OnAction = "goto_home"
   End With
     With .Controls.Add(Type:=msoControlButton)
         .OnAction = "goto_table_general"
         .FaceId = 2151
         .Caption = "Go to table 111"
         .Parameter = 1
      End With
End With

End Sub