Hi

I have added a menu bar with buttons which run code when clicked.
What i want to do is add dropdown menus which have their own sub
'buttons' on them. Just like when you click the File on the standard
menu in Excel, and it drops down and shows New, Open etc.

My current code is (i am only showing the code for a couple of the
buttons I am adding):

PerformCommandBar As CommandBar
Set PerformCommandBar = Application.CommandBars.Add(ToolbarName,
msoBarFloating, False, True)
PerformCommandBar.Visible = True
Set NewItem = PerformCommandBar.Controls.Add(msoControlButton)
With NewItem
.Caption = "Delete Data"
.TooltipText = "Delete all the data sheets"
.OnAction = "DeleteDataSheets"
.Style = msoButtonCaption
.Visible = True
End With
Set NewItem = PerformCommandBar.Controls.Add(msoControlButton)
With NewItem
.Caption = "Text to Formulas"
.TooltipText = "Change the formulas in the Calc sheet back
from text"
.OnAction = "Copy_Text_to_Formulas"
.Style = msoButtonCaption
.Visible = True
End With


All help appreciated

AndyC