About Us

Cynthia[_4_]

Bob Phillips wrote:
Dim oCB As CommandBar
Dim oCtl As CommandBarControl
Dim strMenuName As String

strMenuName = "My new menu"

Set oCB = Application.CommandBars("Worksheet Menu Bar")

On Error Resume Next
' Delete the menu if it already exists
oCB.Controls(strMenuName).Delete
On Error GoTo 0

' Add the main menu
Set oCtl = oCB.Controls.Add(Type:=msoControlPopup, temporary:=True)

' Add the submenu items
With oCtl
.Caption = strMenuName
With .Controls.Add(Type:=msoControlButton)
.Caption = "Save this worksheet"
.OnAction = "cmdSaveMe"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Hide this worksheet"
.OnAction = "cmdHideMe"
End With
'etc.
End With

Thanks everyone...that works for me!

Cindi

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Unhide Main Menu Bar	Dkline	Excel Worksheet Functions	2	February 2nd 07 09:31 PM
Main menu is missing	Deb G	Excel Discussion (Misc queries)	3	May 10th 05 07:46 PM
Why has my main menu bar suddenly disappeared?	JR Mac MacKay	Excel Discussion (Misc queries)	1	April 26th 05 05:32 PM
Menu items added with menu item editor in older versions	Michael Hoffmann	Excel Discussion (Misc queries)	2	January 7th 05 01:40 PM
How to remove an Excel Main Menu item inserted by .xla file	Dennis	Excel Discussion (Misc queries)	5	November 28th 04 08:39 PM