Excel fejler ved åbning

Hej alle

Jeg har endnu et Escel problem. Nu er jeg ude for at Excel ikke kan åbne min database menu som ligger i en xla datadgang.xla. Jeg har debugget mig frem til at koden fejler når den skal oprette et nyt menupunkt dvs. i VBA kodelinjen:

Dim mnuMain As CommandBarControls      'Excel-menulinien
Dim mnu As CommandBarPopup              'Database-menulinien
Set mnuMain = Application.CommandBars("Worksheet Menu Bar").Controls
Set mnu = mnuMain.Add(msoControlPopup, , , 10, True)
mnu.Caption = "Nyt menupunkt"

Koden fejler på linie 3 "Set mnu = ..." hvor den prøver at sætte menu punktet ind. Den giver fejlmeddelsen:
'Run-time error '-2147467259 (800040056)'

Nogle idéer?

På forhånd tusind tak!