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

 

[288enzo]

Try this:

Sub Call_Me()
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

Old thread, sorry.

How would I go about using "Application.Run ans" in other Subs based on the users input from Sub Call_Me?

Thank you

 

[288enzo]

This is what did the trick

Option Explicit
Sub Qtr_Input()
Dim strQtr As String
strQtr = InputBox("enter Quarter here (1,2,3,4)")
Area82 strQtr
End Sub

In my main Sub I had to add (strQtr As String) to the Sub header

Sub Area82(strQtr As String)

Then use the following throughout Sub Area82

Select Case strQtr
    Case Is = "3"
        Call Q3
    Case Is = "4"
        Call Q4
End Select