ACCESS2010でRunを実行するとプロシージャが見つからないエラー

Question

表題の通りですが、Runを実行するとプロシージャが見つからないというエラーが出ます。

Private Sub test_output_1(i As Integer)
   Debug.Print "test" & i
End Sub

上記のSubが1～5まであり、Forで回して順に実行するというプログラムです。

Private Sub btn_test_Click()
   
   Dim i As Integer
   
   For i = 1 To 5
      Application.Run "test_output_" & i, i
   Next
   
End Sub

btn_test_Clickを実行すると
「実行時エラー ’2517’:
’test_output_1’プロシージャが見つかりません。」
というエラーが出ます。
Publicにしたり標準モジュールに移動したりApplication付けたり外したりしても同じです。
RunをCallにして実行したらエラーは出ませんが、Callでは変数を使用して繰り返す処理はできないので困っている状況です。

原因と解決方法がわかる方がいましたらご回答よろしくお願いします。

Answer 1

呼び出される、test_output_Xを標準モジュールにPublicとして定義して下さい。