About Us

John Hutcins

Thanks, that did it!
John

"Dave Peterson" wrote:

I'd look for a file named *.xlb.

Check to see if you have an extra one in your XLStart (any of them!) folder.

John Hutcins wrote:

I have this code in ThisWorkbook in an add in .xla

Private Sub Workbook_Open()
Dim cbWsMenuBar As CommandBar
Dim TrCustom As CommandBarControl
Dim iHelpIndex As Integer

Set cbWsMenuBar = Application.CommandBars("Worksheet Menu Bar")
iHelpIndex = cbWsMenuBar.Controls("Help").Index
Set TrCustom = cbWsMenuBar.Controls.Add(Type:=msoControlPopup,
befo=iHelpIndex)
With TrCustom
.Caption = "Translate"

With .Controls.Add(Type:=msoControlButton)
.Caption = "Refresh Branch List"
.OnAction = "'ERAC_Universal_Translate7x.xla'!Group_Branch "
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "Refresh Account List"
.OnAction = "'ERAC_Universal_Translate7x.xla'!AccountList"
End With

End With

When I open Excel I briefly see the new menu item on the menu bar but is
disappears when Excel automatically adds a new workbook "Book1". If I run
the private sub after everything is open the menu is added and it works. But
when I close and reopen Excel it doesn't persist. Any idea where I should
look to figure out what is wiping this out?

Thanks,
John

--

Dave Peterson

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding Sub Menu Item to Current Custom Menu	Renato	Excel Programming	2	December 19th 05 12:48 AM
problem with custom menu	Tony	Excel Programming	2	May 4th 05 08:20 AM
problem with custom menu	Tony	Excel Programming	4	May 3rd 05 02:27 PM
VBA - Disappearing custom menu and custom toolbar	Peter[_50_]	Excel Programming	2	December 2nd 04 06:09 PM
Custom Menu return to Excel Menu upon Closing	VetcalcReport	Excel Programming	2	August 2nd 04 02:59 PM