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