Calling an arbitrary sub/function

[Alratan]

Calling arbitrary subs/functions.

I am trying to write a sub which executes an arbitrary second sub/function, defined by a string which contains the name and parameters of the second function.

My first try was this:

Sub Runsub(formula as string)

If formula = "" Then

Exit Sub

End If

Call formula

End Sub

where formula would take the form SubName(Param1, Param2, ...)

but this refuses to compile.

Any ideas?

[mangesh_yadav]

something like this is working for me:

Sub Runsub(myformula As String)

If myformula = "" Then
Exit Sub
End If

a = Evaluate(myformula)
MsgBox a

End Sub


Sub test()
Call Runsub("myAdd(2,3)")
End Sub


Function myAdd(x, y)
myAdd = x + y
End Function



Maybe you could modify it as per your requirement.

- Mangesh