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