Listbox of Macros In Workbook

[Jaye7]

Hello,
I would like a listbox to list all the macros in the current workbook and then if I click on the macro in the listbox it will then run the macro, can anyone help please

 

[mikerickson]

The built in Macro dialog box will do that. Use Help to display the Developer tab on the ribbon.

 

[Trebor76]

Further to mikerickson's solution - Alt + F8 (i.e. press and hold the Alt key and then press the F8 key) will display the macro dialog in (I believe) any version of Excel.

 

[Jaye7]

Thanks guys,

I should have clarified better as to why I want them in a listbox.
I actually want to incorporate it into the listbox as I have other macros in user forms therefore I can then run the macro from the list and then immediately run other macros from user forms rather than have to keep going into the macro list each time opening it and scrolling to a specific macro.

 

[mikerickson]

Perhaps this

Sub test()
    Do
    Loop Until Application.Dialogs(xlDialogRun).Show = False
End Sub

 

[Jaye7]

Mike,

Can you please advise how I would make your code work in say Listbox4, so that Listbox4 displays the macros.

Sorry I am not the best with VBA.

 

[mikerickson]

My code is to use a native excel dialog box rather than a UserForm. There is no ListBox4. The code can't access the values in the list box.

It seems that you want a listbox of macro names, you select one, press a button and that macro runs.
After the macro has run, you want the same listbox and button visible. Is that right?

 

[Jaye7]

Hi Mike,

yes I would like listbox4 on my sheet to list all the macros in the current workbook and then when I click on one of the rows in the listbox I would then click on a commandment button which then activates the selected text/row in the listbox and runs the macro based on the name selected in the listbox.
Sorry I have tried to explain in as much detail as possible and I hope that I haven't confused you more.

I like everything to be on userforms as it makes it much easier when I want to run lots of different macros one after the other, but obviously the order that I run them in changes from project to project.

 

[mikerickson]

If you have a listbox from the Forms menu and a list of macro names in its InputRange, assigning the list box to this routine will run the macro when selected by the user.
Note that any list itemst that refer to a macro in a userform's code module need to have a format like "UserForm1.Method22". Unlike macros in normal modules, these get explicit handling, since I can't get them to work with Application.Run.

Sub ListBox1_Change()
    Dim macroToRun As String
    With ActiveSheet.Shapes(Application.Caller).ControlFormat
        macroToRun = .List(.ListIndex)
    End With
    RunMacroName macroToRun
    ActiveSheet.Shapes(Application.Caller).ControlFormat.ListIndex = 0
End Sub

Sub RunMacroName(macroName As String)
    If CBool(InStr(macroName, ".")) Then
        Rem macros in userforms
        Select Case macroName
            Case "UserForm2.Method21"
                UserForm2.Method21
                Unload UserForm2
            Case "UserForm2.Method22"
                UserForm2.Method22
                Unload UserForm2
            Case "UserForm3.Method333"
                UserForm3.Method333
                Unload UserForm3
            Case Else
        End Select
    Else
        Rem macros in normal modules
            On Error Resume Next
            Application.Run macroName
            On Error GoTo 0
    End If
End Sub