ekstra munupunkt med vba fejler

Jeg opretter at ekstra munupunkt:
Private Sub Workbook_Open()
' opretter menupunkt i menulinien
Dim NyMenu As CommandBarPopup
Set NyMenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , 12)
    NyMenu.Caption = "Find Today" 'tekst på menupunktet
    NyMenu.BeginGroup = False
    NyMenu.OnAction = "FindToday" 'action på menupunktet
End Sub

og sletter det igen med:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Worksheet Menu Bar").Controls("Find Today").Delete
End Sub

men det er en delt projektmappe, og jeg kan se at andre brugere, på andre pc'er får en fejl på object der ikke findes eller lignende...

Har dog ikke testet en hel masse (da det er en delt projektmappe, med følsomme brugere), men fejlene ophørte efter at jeg tog det af igen...

Jeg føler mig overbevist om, at det ikke er nødvendigt at køre noget med vedhæft af menu til projektmappen, men hvor skal jeg så finde fejlen?