Excel Popup Menu Control

I am trying to program a custom menu for an Excel application, and so far I
have managed to move the File menu to the end of the list and have multiple
File menus with only three having the MenuItems in them.
How do I rearrange the menu order and remove the unwanted File menus?

James

Hi James,

Try:

'===========>>
Public Sub Tester
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub
'<<===========


---
Regards,
Norman


"James" <James@discussions.microsoft.com> wrote in message
news:2102F0A2-E457-4C76-94BE-14FCB1612C20@microsoft.com...
>I am trying to program a custom menu for an Excel application, and so far I
> have managed to move the File menu to the end of the list and have
> multiple
> File menus with only three having the MenuItems in them.
> How do I rearrange the menu order and remove the unwanted File menus?
>
> James

James:

only Reset the File menus

Dim cbr As CommandBarControl
For Each cbr In Application.CommandBars.FindControls(ID:=30002)
MsgBox cbr.Caption
cbr.Reset
Next



--
天行健，君�*�以自強不息
地勢坤，君�*�以厚德載物

http://www.vba.com.tw/plog/


"James" wrote:

> I am trying to program a custom menu for an Excel application, and so far I
> have managed to move the File menu to the end of the list and have multiple
> File menus with only three having the MenuItems in them.
> How do I rearrange the menu order and remove the unwanted File menus?
>
> James