Мяв! Началось все с Application.OnTime, но выяснилось, что и Application.Run ведет себя так-же, с той небольшой разницей, что OnTime молчит, а Run ругается на отсутствие макроса. Судя по тому, что код не работает только в модуле формы (в книге и на листе все в порядке), проблема в определении места расположения макроса. В чем причина, и можно-ли как-то прописать запуск? Через доп. код в стандартном модуле работает, вариант не интересен
Код
Const TimePause = 20 * (1 / 86400 / 10)
Private Sub qq()
MsgBox "QQ"
End Sub
Private Sub TextBox1_Change()
Application.Run "UserForm1.qq"
' Application.OnTime Now + TimePause, "UserForm1.qq"
End Sub