Jim,

I'm alittle confused,

I would like to show on the menu:

item 1
item 2
Flyout Menu item 3
item 4


Hope this make sense?

Thanks



"Jim Cone" wrote in message
...
You can add submenu items to a control but not to a button...
Dim cBut As CommandBarControl
Dim cBut2 As CommandBarControl
Dim cItem As CommandBarButton

Then add cItem to cBut and cBut2.
--
Jim Cone
Portland, Oregon USA



"Excel User"

wrote in message
Hi,
I am trying to create a sub menu to the context menu, I have added 2 items
but cannot create a sub menu with other commands within that:

With Application
.CommandBars("Cell").Controls("Item1").Delete
Set cBut = .CommandBars("Cell").Controls.Add(Temporary:=True)
.CommandBars("Cell").Controls("Item2").Delete
Set cBut2 = .CommandBars("Cell").Controls.Add(Temporary:=True)
End With

With cBut
.Caption = "Item1"
.Style = msoButtonCaption
.OnAction = "Item1"
End With

With cBut2
.Caption = "Item2"
.Style = msoButtonCaption
.OnAction = "Item2"
End With

Any pointer would be appreciated.
Thanks