Try to run this code first to see if it is working

Sub MenuBar_Item_Item()
Dim MenuItem As CommandBarControl
MenuBar_Item_Item_Delete

Set MenuItem = Application.CommandBars.FindControl(, 30007) 'Tools menu
If MenuItem Is Nothing Then Exit Sub
With MenuItem.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Ron de Bruin"
.OnAction = ThisWorkbook.Name & "!TestMacro"
.BeginGroup = True
.Tag = "MenuItemTag"
End With
Set MenuItem = Nothing
End Sub

Sub MenuBar_Item_Item_Delete()
Dim MenuItem As CommandBarControl
Set MenuItem = Application.CommandBars.FindControl(Tag:="MenuItem Tag")
If Not MenuItem Is Nothing Then
MenuItem.Delete
End If
Set MenuItem = Nothing
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" wrote in message ...
Hi VB Office Bruce

Do you use Excel 2003 ?

--
Regards Ron de Bruin
http://www.rondebruin.nl



"VB Office Bruce" wrote in message
...
Yes. I saved it as an .xla following the standard cook book procedures. It
seems that creating a custom toolbar may be an answer and saving that as an
xla. Where the commands in the toolbar execute the macros. I've read
several discussions and will experiement. Don't know if that works. Thanks.


"davesexcel" wrote:


Did you save it as an add-in?


--
davesexcel
------------------------------------------------------------------------
davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708
View this thread: http://www.excelforum.com/showthread...hreadid=523986