How to hide Worksheet Menu Bar and display our own menu. Is it posible.thanks

use AUTO_OPEN to run a macro that will take off the default menus.... I unfortunatley do not know how to add your own menu as this is something I am looking for.

This may help you out ??

http://support.microsoft.com/support/kb/articles/q117/8/55.asp

OR

http://support.microsoft.com/support/kb/articles/Q107/6/89.asp

Ivan

I have just replied to a question I received privately that might help :-

QUESTION.
"could u help me with this problem.hope u can.

1st, i like to hide the menu bar for sure and display my own menu bar.

2nd ,i'm trying to run my code from a menu instead of old fashion style using button.

let say i want the menu to be named as azri1, azri2 and azri3

under azri1 there will be 10 macros and so on..(azri2 and azri3 also have 10 macros )

can u give the code to hide the worksheet menu bar and display my own menu like i write above. thanks...."

REPLY
Try this :-

Sub Create_MyMenu()
'Hide the Excel worksheet menu bar
Application.CommandBars(1).Enabled = False
'Remove MyMenu if it exists
On Error Resume Next
MenuBars("MyMenu").Delete
On Error GoTo 0
'Create a new blank menu bar called MyMenu
MenuBars.Add "MyMenu"
'Add menu items "Azri1", to the MyMenu bar
MenuBars("MyMenu").Menus.Add Caption:="Azri1"
'Add menu items(macros) under the "Azri1" menu item.
With MenuBars("MyMenu").Menus("Azri1").MenuItems
.Add Caption:="&Macro1", OnAction:="Macro1"
.Add Caption:="&Macro2", OnAction:="Macro2"
'etc
End With
'Display the "MyMenu" menu bar.
MenuBars("MyMenu").Activate
End Sub

Sub ResetMenus()
'Remove MyMenu if it exists
On Error Resume Next
MenuBars("MyMenu").Delete
On Error GoTo 0
'Display the Excel worksheet menu bar
Application.CommandBars(1).Enabled = True
End Sub

Celia

YOU ARE A GENIUS CELIA.GOD BLESS YOU