Tilpas Excel-menu i VBA

Jeg har oprettet følgende kode i en ny projektmappe i ExcelXP:

Dim BeregnMenu As Object
Set BeregnMenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= msoControlButton, ID:=2949, Before:=12)
BeregnMenu.Caption = "&Beregn Ark"
BeregnMenu.Style = msoButtonCaption
BeregnMenu.OnAction = "BeregnArk"

Når jeg kører programmet virker det fint - der bliver oprettet et nyt menupunkt på standardmenuen, som leder til makroen "BeregnArk"

Når jeg så kopierer hele koden ind i en tidligere oprettet projektmappe (som indeholder mange andre VBA-procedurer m.v.) og kører koden får jeg fejlmeldingen:
"Variable not defined" med henvisning til elementet "msoControlButton"

Hvorfor virker det i ét regneark og ikke i et andet ?

MvH
Caschmidt