I have the following code for setting up the menu bar upon opening.
However, I keep getting an error missage saying missing project or
library for "mymenubar". How do I solve this error?

Public Sub Workbook_Open()
Dim FSys As Object
Dim resp1 As Integer
Dim abook As Object
Dim IsBookOpen As Boolean

Application.ScreenUpdating = True
Workbooks("Admin.xls").Activate
Worksheets("Index").Activate

MenuBars(xlWorksheet).Reset
MenuBars(xlWorksheet).Activate

Set MyMenuBar = CommandBars.ActiveMenuBar
Set Ordersmenu = MyMenuBar.Controls.Add(Type:=msoControlPopup,
Temporary:=True)
Ordersmenu.Caption = "Orders"

regards

Craig Wilks

*** Sent via Developersdex http://www.developersdex.com ***