Hi all,

I need a bit of help. Does anyone now how to places items into a su
menu

the menu code is below and i would like to know how to place items i
the project codes menu

==============================================
Dim CMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCustomMenu As CommandBarControl

On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("CC
Generator").Delete
On Error GoTo 0
'
' Point to the Worksheet Menu Bar
'
Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
'
' Set Before Help menu
'
iHelpMenu = cbMainMenuBar.Controls("Help").Index
'
' Add new menu
'
Set cbcCustomMenu = cbMainMenuBar.Controls. _
Add(Type:=msoControlPopup, Befo=iHelpMenu)
'
' Name New Menu
'
cbcCustomMenu.Caption = "CCC Generator"
'
' Add Sub Menus
'
With cbcCustomMenu.Controls.Add(Type:=msoControlPopup)
.Caption = "Project Codes"
.Tag = "Project Codes"
End With

==============================================

Thanks
Pau

--
Message posted from http://www.ExcelForum.com