Solved: Dynamic Procedure call

[CareerChange]

I'm probably overlooking the obvious, but can this be done?

I want to avoid coding conditional logic such as a "Select Case" or "If" statement by dynamically creating a procedure name from a derived string.

Here's a code snippet...


Sub TestStub
Dim sProcedure as String, sQtr as String

sQtr = "1Q" ' this variable would normally be set somewhere else

sProcedure = "FindUnassigned " & sType & "Sales"

Call sProcedure
End Sub

Sub FindUnassigned1QSales
....
End Sub

Sub FindUnassigned2QSales
....
End Sub

[Paul_Hossler]

Application.Run ()


Option Explicit
Sub drv()
Dim sProcedure As String

sProcedure = "ONE"
Application.Run (sProcedure)

sProcedure = "TWO"
Application.Run (sProcedure)

sProcedure = "THREE"
Call Application.Run(sProcedure, 2, 3)

End Sub

Sub ONE()
MsgBox "One Called"
End Sub
Sub TWO()
MsgBox "Two Called"
End Sub
Sub THREE(i As Long, j As Long)
MsgBox "Three Called and the answer is " & (i * j)
End Sub


Paul

[CareerChange]

Perfect!

Thank you Paul!