Dynamic VBA program

[Helge Larsen]

I need some VBA like this:

Dim AllSubs(1 To 3) As String

Sub myMAIN()

AllSubs(1) = "Sub1"
AllSubs(2) = "Sub2"
AllSubs(3) = "Sub3"
Call Call_VBA(2) ' This should call Sub2.​

End Sub

Sub Call_VBA(ByRef I As Integer)

Dim mySub As String
mySub = AllSubs(I)
Call mySub ' Of course this will not function!​

End Sub

Sub Sub1(): MsgBox "Sub1": End Sub
Sub Sub2(): MsgBox "Sub2": End Sub
Sub Sub3(): MsgBox "Sub3": End Sub

Is it at all possible to make a such 'dynamic' call of a VBA routine.

 

[xenou]

Hi,
This should do what you want:

Dim AllSubs(1 To 3) As String

Sub myMAIN()

    AllSubs(1) = "Sub1"
    AllSubs(2) = "Sub2"
    AllSubs(3) = "Sub3"
    Call Call_VBA(2) ' This should call Sub2.

End Sub

Sub Call_VBA(ByRef I As Integer)

    Dim mySub As String
    mySub = AllSubs(I)
    [COLOR="Blue"]Application.Run ThisWorkbook.Name & "!" &  mySub[/COLOR]
    
End Sub

Sub Sub1(): MsgBox "Sub1": End Sub
Sub Sub2(): MsgBox "Sub2": End Sub
Sub Sub3(): MsgBox "Sub3": End Sub

If the subs are all in the same standard module (or I think even in the same workbook in standard modules) you can use just:
Application.Run mySub