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