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

>>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.


--
Jim
"Mike H." <(E-Mail Removed)> wrote in message
news:5A6758BD-FE0F-4C9C-BCD9-(E-Mail Removed)...
> 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
>