XL 2003 Menu vanishes on sheet change 1

[RonRepp]

Hi, All:

I have a custom menu that works great unless you click a chart sheet, and then it hides. I'm assuming that XL uses a different menubar for a chart sheet, or rewrites it.

In either case, I can trap it @ the SheetActivate procedure (see below), but if I delete that custom and add one, then it vanishes for the other sheet types.

Any ideas? I tried just making it visible, and that didn't work.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error Resume Next
    'MsgBox Sh.Type
    If Sh.Type = 3 Then
        'Excel.Application.CommandBars("Worksheet Menu Bar").Controls("Worksheets").Visible = True
            'Call DeleteWorksheetsMenu
            'Call AddWorksheetsMenu

    End If
End Sub

Thanks,


Ron Repp

If gray hair is a sign of wisdom, then I'm a genius.

My newest novel: Wooden Warriors

http://www.repproductions.net

 

[combo]

Excel automatically changes the 'Visible' property of commandbar, for chartsheet the menubar name is "Chart Menu Bar"

combo