OnTime関数で「マクロを実行できない」エラーが出ます。

プロシージャの指定のところをシングルクォートで囲ってください。

Dim I As Long

Sub Test()

Dim x As Integer

x = 3

Application.OnTime Now + TimeValue("00:00:1"), "'aaa " & x & "'"

MsgBox "end"

End Sub

Sub aaa(wP As Integer)

I = I + 1

wP = wP + 1

MsgBox "hello " & I & " " & wP

If I < 3 Then

  Application.OnTime Now + TimeValue("00:00:5"), "'aaa " & wP & "'"

End If

End Sub

なお、パラメータを指定する場合、なぜか分かりませんがPrivateだとダメみたいです。

次のようなサンプルを作成して、新規ブックの標準モジュールに貼り付けてTestを実行してみてください。

Sub Test()

Application.OnTime Now + TimeValue("00:00:15"), "aaa"

End Sub

Private Sub aaa()

MsgBox "hello"

End Sub

もし、これで動くようなら、なにか書き方を間違えておられるのでしょうし、動かないようでしたらExcelのトラブルが疑われますので、まず、Excelのセーフモード（CTRLキーを押しながらExcelショートカットから起動）した新規ブックで同じことをやってみてください。

Privateは関係ないはずですが？　サンプルマクロはPrivate外してもちゃんと動きます。

マクロ実行画面で表にでないようにするため付けただけです。

On Timeの動きは↓を試してご覧になればわかるはずです。

End　と表示されて、OKをクリックすれば、メインモジュールは終了するわけですが、OnTimeで仕掛けたものはちゃんと起動します。

ただ、この手のやつはちゃんと仕掛けをしておかないと終わらなくなりますのでご注意ください。

このサンプルは3回Helloと言って終わります。

（なお、時間は短くしてあります）

Dim I As Long

Sub Test()

Application.OnTime Now + TimeValue("00:00:7"), "aaa"

MsgBox "end"

End Sub

Private Sub aaa()

I = I + 1

MsgBox "hello " & I

If I < 3 Then

  Application.OnTime Now + TimeValue("00:00:5"), "aaa"

End If

End Sub