Custom Menus With Excel 2007

M

Mike H.

Recently some users got new PC's with Vista and Excel 2007. Now this macro
does not build a custom menu when the file is opened? Can I have my code
detect the version of Excel and then is there a modified version of this
menu-building macro for Excel 2007?

Private Sub Workbook_Open()

Dim Menu1 As CommandBarControl
Dim MainMenuBar As CommandBar
Dim CustomMenu As CommandBarControl
On Error Resume Next
Application.CommandBars("Worksheet Menu
Bar").Controls("&JournalEntries").Delete
On Error GoTo 0
Set MainMenuBar = Application.CommandBars("Worksheet Menu Bar")
HelpMenu = MainMenuBar.Controls("Help").Index
Set CustomMenu = MainMenuBar.Controls.Add(Type:=msoControlPopup,
Before:=HelpMenu)
CustomMenu.Caption = "&JournalEntries"
With CustomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "ValidateJE"
.OnAction = "ValidateOneJe"
End With
 
J

Jim Rech

Now this macro does not build a custom menu when the file is opened?

It does but you have to switch to the Add-ins tab to find it.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top