Call Macro by Input Box

[Pinaceous]

Hi All,

Is there a way to provide an Input Box/Message Box to prompt the user, which macro/sub to run?

For Example,

If they want

 Sub Sep()

to run they will input

Sep

in the Input Box/Message Box.

Many Thanks!
Pinaceous

 

[JumboCactuar]

you can always create a macro which calls macros based on input box value.

Like:

myValue = InputBox("Enter Macro Name", "", 1)

If myValue = "macro1" then
Call macro1
End if

 

[shg]

Another way:

  Application.Run InputBox("Macro?")

 

[My Aswer Is This]

Try this:

Sub Call_Me()
'Modified  10/13/2018  5:10:12 PM  EDT
On Error GoTo M
ans = InputBox("Enter Macro name")
Application.Run ans
Exit Sub
M:
MsgBox "You have no macro named  " & ans & " in the current workbook"
End Sub

 

[mikerickson]

Perhaps

Application.Dialogs(xlDialogRun).Show

 

[My Aswer Is This]

I have a lot of Macros.
I'm not able to remember all the shortcut keys to run these macros.
So I built a Userform

I open the Userform as Modeless so I can work on my workbook with the Userform displayed

On my Userform I have numerous Option buttons


I give the Option button caption a description reminding me what this script does
And then when I click on this Option Button the script assigned to that option button runs.

I store this Userform in My Personal Workbook and a script to Open The Userform in my Personal Workbook.

So now all I must remember is the Shortcut key that opens the Userform

And since I have maybe 40 some macros. I categorize my scripts and have a separate Multipage page on my Userform for each category of type script.

This works for me.

And by having my Userform in my Personal Workbook it's available when using any Workbook.

You may want to consider this if you have a whole lot of Macros and a bad memory.

 

[shg]

Perhaps

Application.Dialogs(xlDialogRun).Show

D'oh.

 

[Pinaceous]

Hey Guys!!!

I really appreciate all of the posts.

For my application, I'm going to use

shg

code post.


Thank you!
Paul

 

[Pinaceous]

Try this:

Sub Call_Me()
'Modified  10/13/2018  5:10:12 PM  EDT
On Error GoTo M
ans = InputBox("Enter Macro name")
Application.Run ans
Exit Sub
M:
MsgBox "You have no macro named  " & ans & " in the current workbook"
End Sub

Actually shg,

If one were to press

Cancel

in this sub, how would you have the input box MsgBox respond back, "you have canceled!".


Please let me know, if you can.

Many thanks,
Paul

 

[My Aswer Is This]

If you were to try my script you will see what it does.
If you want the message to say something else just modify the script.
You should be able to do that.