変数を使用したFunctionから戻り値を得たいです。

Function名に変数を使用する方法は、Application.Run しか知らないのですがこれでは
戻り値がえられません。
ご指導よろしくお願いいたします。

Sub TEST()
Dim Prc_Name As String
Dim i 　　 As Long
Dim Rtn

For i = 1 To 3
Prc_Name = "PRC_" & Trim(Str(i))
Application.Run Prc_Name '←'ここでFunctionからの戻り値を得たい
Rtn = Application.Run Prc_Name '←これではエラーになります
Next i
End Sub
Function PRC_1() As Boolean
'処理
PRC_1 = 処理結果(True Or False)
End Function
Function PRC_2() As Boolean
'処理
PRC_2 = 処理結果(True Or False)
End Function
Function PRC_3() As Boolean
'処理
PRC_3 = 処理結果(True Or False)
End Function

No.1 ベストアンサー 回答者： siffon9 回答日時： 2016/06/29 20:33

戻り値がある場合には括弧が必要になります。

Rtn = Application.Run(Prc_Name)

この回答へのお礼

早速のご指導ありがとうございました。
確認できました。ネットで随分検索したのですが、見つかりませんでした。
やっぱり識者が多いここは助かります。

お礼日時：2016/06/29 20:53