I have a xla menu that I am trying to set up upon start up. It is failing
ont the line of code:

Set MySubMenu1 = MyMenu.Controls.Add(Type:=msoControlButton, ID:=1,
Temporary:=True)

If I change the "msoControlButton" to "msoControlPopup" it works. Problem
is the menue item has little black arrow implying there are sub menus.
Since there aren't, I do no want to show the black arrows. I have used
msoControlButton before and it worked. Is it failing because of the way I
have dimeneioned MySubMenu1?

Sub MenuSetup()
Dim GTMenuBar As CommandBar
Dim MyMenu
Dim MySubMenu1 As CommandBarPopup
Dim MyControl As CommandBarButton
Dim MyButton As CommandBarButton


Set GTMenuBar = CommandBars.ActiveMenuBar

Set MyMenu = GTMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MyMenu.Caption = "&PF Tools"
'MyMenu.BeginGroup = True

'******
'Create First Menu Item
Set MySubMenu1 = MyMenu.Controls.Add(Type:=msoControlButton, ID:=1,
Temporary:=True)
MySubMenu1.Caption = "My Program"
MySubMenu1.OnAction = "BigCode"


Thanks