How can I simplify this?
VB Code:
Sub Run(Func As String, Par() As Variant) Select Case UBound(Par) Case 0: CallByName Me, Func, VbMethod, Par(0) Case 1: CallByName Me, Func, VbMethod, Par(0), Par(1) Case 2: CallByName Me, Func, VbMethod, Par(0), Par(1), Par(2) Case 3: CallByName Me, Func, VbMethod, Par(0), Par(1), Par(2), Par(3) '... End Select End Sub