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" <DGillham.1ubmql_1124975156.6233@excelforum-nospam.com> wrote in
message news:DGillham.1ubmql_1124975156.6233@excelforum-nospam.com...
>
> 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
>