Как решить макрос не может быть найден VBA

Question

Я создал vba для выполнения нескольких макросов в последовательности.

Я назначил кнопку макросу, который запустит последовательность.

Sub mixerStarter()

Call PrimaryDataGet
Application.Wait (Now + TimeValue("0:00:05"))
Call ValueSetter
Application.Wait (Now + TimeValue("0:00:03"))
Call dataShift
Application.Wait (Now + TimeValue("0:00:03"))

Application.OnTime Now + TimeValue("00:01:00"), "mixerMiddle()"

End Sub


Sub mixerMiddle()
Call PrimaryDataGet
Application.Wait (Now + TimeValue("0:00:05"))
Call dataShift
Application.Wait (Now + TimeValue("0:00:03"))
End sub

Запуск mixerStarter отлично, но как только он достигает mixerMiddle, я получаю сообщение об ошибке:

Сообщение об ошибке

Все макросы находятся в модуле 1

В качестве рекомендации из другого вопроса аналогичного характера я удалил все подчеркивания из имен своих макросов

Что делать делать?

Answer 1

Процедура в OnTime не использует скобки, поэтому используйте вместо них:

Application.OnTime Now + TimeValue("00:01:00"), "mixerMiddle"

.

Ссылка:

• https://docs.microsoft.com/en-us/office/vba/api/excel.application.ontime