input box to call several macros?

[edlim85]

Hi all,

I understand i can call several macros using the example below. But Say in a bunch of macro(Macro A, B, C, D) i only want to call A and B. Using a input box, how shld i code this?


Sub RunAll() Call Macro1 Call Macro2 Call Macro3 ...so on End Sub</pre>
pls advise


Sincerely
Edmund

 

[Ralajer]

Edmund,

You could use something along these lines to run a selection of macros.

Sub runMacros()
    Dim macrosToRun As String
    Dim runThese As Variant
    Dim runThis As Variant
    
    macrosToRun = InputBox("Enter the Name(s) of macro(s) to run." & vbCr & "Seperate by COMMAS ','")
    '// Removed spaces as to avoid possible input error
    runThese = Split(Replace(macrosToRun, " ", ""), ",")
    
    For Each runThis In runThese
        On Error Resume Next
        Application.Run runThis
        If Err.Number <> 0 Then
            MsgBox runThis & " - was not found or an error occured"
        End If
    Next runThis
End Sub