Oprette min egen menu via VBA

Jeg kæmper for øjeblikket med at få (automatisk) oprettet en brugerdefineret menu i Excel.  - og få lukket menuen igen, når det aktuelle regneark lukkes.
Se www.eksperten.dk/spm/695614

Nu er jeg så begyndt at bøvle med at få dette til at fungere via VBA.

Jeg fandt nogle programstumper, som i faktisk virker meget fint - men når jeg kopierer stumpen ind i mit eget VBA-projekt, så vil den ikke mere :-(

Udgangspunktet ser således ud:
Sub Kapitel17()
    Dim MenuLinje As CommandBar
    Dim TimeMenu As Object
    Dim Element As Object

    Set MenuLinje = CommandBars.Add(Name:="Time/&Sag", Position:=msoBarTop, MenuBar:=True, Temporary:=True)
        MenuLinje.Controls.Add Type:=msoControlPopup, ID:=30002, Before:=1

I min version ser det således ud:
Sub Auto_Open()
    Dim MenuLinje As CommandBar
    Dim TimeMenu As Object
    Dim Element As Object

    Set MenuLinje = CommandBars.Add(Name:="Time/&Sag", Position:=msoBarTop, MenuBar:=True, Temporary:=True)
        MenuLinje.Controls.Add Type:=msoControlPopup, ID:=30002, Before:=1

Når programmet når til første linie (!) får jeg denne fejlmelding:
"Compile error: User-defined type not defined"

Hvad skal det forestille?
Hvorfor virker det ikke?