I created a schedule template for my supervisor at work. Every thing works ok
except the menu does not load.

Menu should show as soon as workbook is opened.I have shortcut keys assign
to load forms,but would be nice to see the menu.

Of course it works fine on all of my machines which are running xp ( so is
super)
but I'm not on network where he is ???

any help on this would be great

thanks in advance
gr8day

Put your code of making the menu in ThisWorkbook in folder 'Microsoft
Excel Objects'

Private Sub Workbook_Open()
***put code here***
End Sub


--
Zurn
------------------------------------------------------------------------
Zurn's Profile: http://www.excelforum.com/member.php...o&userid=14645
View this thread: http://www.excelforum.com/showthread...hreadid=533630

I actually have a module for the menu that I call from ThisWorkbook_Open( )
it works fine on my machine but not on supervisors.


"Zurn" wrote:


Put your code of making the menu in ThisWorkbook in folder 'Microsoft
Excel Objects'

Private Sub Workbook_Open()
***put code here***
End Sub


--
Zurn
------------------------------------------------------------------------
Zurn's Profile: http://www.excelforum.com/member.php...o&userid=14645
View this thread: http://www.excelforum.com/showthread...hreadid=533630

Is this code in the ThisWorkbook in your personal folder or in the
template file?

Else provide some code in line please...


--
Zurn
------------------------------------------------------------------------
Zurn's Profile: http://www.excelforum.com/member.php...o&userid=14645
View this thread: http://www.excelforum.com/showthread...hreadid=533630

Template file
I built the file in a regular file first to make sure everything worked, and
it did.
Then once that was done I save as a Template file.

This is my code for Module named ShiftMenu

Sub NewMenu()
Dim PressMenu As CommandBarPopup
'
Call DeleteMenu
Set PressMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup,
Temporary:=True)
PressMenu.Caption = "Press"

Set MenuItem = PressMenu.Controls.Add(Type:=msoControlButton)
MenuItem.Caption = "Shift Schedule"
MenuItem.OnAction = "Month"
Set MenuItem1 = PressMenu.Controls.Add(Type:=msoControlButton)
MenuItem1.Caption = "Edit Schedule"
MenuItem1.OnAction = "EditSchedule"


End Sub

code to call

Private Sub Workbook_Open()
Call ShiftMenu.NewMenu

End Sub


"Zurn" wrote:


Is this code in the ThisWorkbook in your personal folder or in the
template file?

Else provide some code in line please...


--
Zurn
------------------------------------------------------------------------
Zurn's Profile: http://www.excelforum.com/member.php...o&userid=14645
View this thread: http://www.excelforum.com/showthread...hreadid=533630