This is part of a menu generator I use.

Dim cbmMainMenu As CommandBarPopup
Dim cbmSubMenu As CommandBarPopup
Dim cbmSecondSubMenu As CommandBarControl

On Error GoTo HandleErr

With Application.CommandBars(1).Controls

Set cbmMainMenu = .Add(Type:=msoControlPopup, Temporary:=True)

With cbmMainMenu
.Caption = "&" & cstrMENU
.Tag = cstrMENU

Set cbmSecondSubMenu
cbmMainMenu.Controls.Add(msoControlButton)

With cbmSecondSubMenu
.Caption = "&Prepare Barra Upload"
.OnAction = "Prepare"
End With

Set cbmSecondSubMenu
cbmMainMenu.Controls.Add(msoControlButton)

With cbmSecondSubMenu
.Caption = "&Generate Excel Report"
.OnAction = "GenReport"
End With

Set cbmSecondSubMenu
cbmMainMenu.Controls.Add(msoControlButton)

With cbmSecondSubMenu
.Caption = "&Set File Paths"
.OnAction = "SetFilePaths"
.BeginGroup = True
End With

End With

End With

ExitHe
Exit Sub

HandleErr

--
MattShoreso
-----------------------------------------------------------------------
MattShoreson's Profile: http://www.excelforum.com/member.php...nfo&userid=347
View this thread: http://www.excelforum.com/showthread.php?threadid=56655