try this... John

Sub CreateMenu()
Dim HelpMenu As CommandBarControl
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
Dim Submenuitem As CommandBarButton

Call DeleteMenu

Set NewMenu = CommandBars(1).Controls.Add _
(Type:=msoControlPopup, _
temporary:=True)

NewMenu.Caption = "&Budgeting"

Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlPopup)
With MenuItem
.Caption = "&Submenus"
.BeginGroup = True
End With

Set Submenuitem = MenuItem.Controls.Add _
(Type:=msoControlButton)
With Submenuitem
.Caption = "Sub &1"
.OnAction = "Macro1"
End With

Set Submenuitem = MenuItem.Controls.Add _
(Type:=msoControlButton)
With Submenuitem
.Caption = "Sub &2"
.OnAction = "Macro2"
End With
End Sub




-----Original Message-----
I have a custom menu on the menu bar. There are 2
menus. I want to
add a sub menu as follows:

Test Analyses
Explore Test
Type 1 -- call sub1
Type 2 -- call sub2
Plan Test -- call sub3


Here is the code so far:
Set newmen = MenuBars(xlWorksheet).Menus.Add("Test
&Analyses")
newmen.MenuItems.Add "E&xplore Test", "getEXPLOREdata"
newmen.MenuItems.Add "&Plan Test", "getPLANdata"


Thanks
.