Grouping several macros into one scrollable menu

[DGillham]

Hello,

I currently have around 50 macros that I need to run on a regular basis. At the moment I have them all on a toolbar, but I am sure you can understand this has become rather messy and untidy.

What I would love is some sort of menu with a scrolling feature, so that I can have the macros listed and be able to identify the macros much quicker. This would also mean they are kept in a much tidier fashion - is this possible?

Thanks in advance.

Darren

[Bob Phillips]

Excel already gives you a menu.

Tools>Macro>Macros...

--

HTH

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


"DGillham" <DGillham.1ubeec_1124964322.1206@excelforum-nospam.com> wrote in
message news:DGillham.1ubeec_1124964322.1206@excelforum-nospam.com...
>
> Hello,
>
> I currently have around 50 macros that I need to run on a regular
> basis. At the moment I have them all on a toolbar, but I am sure you
> can understand this has become rather messy and untidy.
>
> What I would love is some sort of menu with a scrolling feature, so
> that I can have the macros listed and be able to identify the macros
> much quicker. This would also mean they are kept in a much tidier
> fashion - is this possible?
>
> Thanks in advance.
>
> Darren
>
>
> --
> DGillham
> ------------------------------------------------------------------------
> DGillham's Profile:
http://www.excelforum.com/member.php...o&userid=13707
> View this thread: http://www.excelforum.com/showthread...hreadid=398980
>

[DGillham]

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?

[Bob Phillips]

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
>

[DGillham]

Thanks ever so much - perfect!