Here is one I prepared earlier :-)

Sub addMacromenu()

With Application.CommandBars(1).Controls("Tools")
On Error Resume Next
.Controls("MacroList").Delete
On Error GoTo 0
With .Controls.add(temporary:=True, Type:=msoControlDropdown)
.BeginGroup = True
.Caption = "MacroList"
.AddItem "Macro1"
.AddItem "Macro2"
.AddItem "Macro3"
.AddItem "Macro4"
.AddItem "Macro5"
.OnAction = "RunMacro"
.ListIndex = 0
End With
End With

End Sub

Sub RunMacro()
With Application.CommandBars.ActionControl
Application.Run .Text
.ListIndex = 0
End With
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"DGillham" wrote in
message ...

Thanks, but I was wondering if it were possible to create my own menu.
Reason being, my Macros are in the Personal file so each Macro starts
PERSONAL.XLS!ConversionMacroXXX where X is the name of a company and
as such it looks quite a mess! On the toolbar I constructed I have a
button linked to the macro, and each button is simply named as the
company which makes it easier for my colleagues to use - any ideas?


--
DGillham
------------------------------------------------------------------------
DGillham's Profile:
http://www.excelforum.com/member.php...o&userid=13707
View this thread: http://www.excelforum.com/showthread...hreadid=398980