Выполнение процедуры с задержкой - VBA

Формулировка задачи:

Ребята! Возник вопрос! Есть процедура которую нужно выполнить (Excel VBA), но эта процедура должна выполняться с задержкой в секунд , после того как ее вызвали! Не могли бы Вы помочь с кодом! Заранее Спасибо. P.S. Только не макрос!

Решение задачи: «Выполнение процедуры с задержкой»

textual
                            Листинг программы 
                        

                            Sub MySub()
Static startTime
If startTime = 0 Then       'выполнение не запланировано, запланировать
    startTime = Now + #12:00:10 AM# '10 секунд, вводить #0:0:10#
    Application.OnTime startTime, "MySub"
    Exit Sub
ElseIf Now < startTime Then 'выполнение запланировано, выход
    Exit Sub
End If
startTime = 0               'сбросить время, выполнить запланированную процедуру
                            'начало процедуры
MsgBox "А вот и я!"
End Sub
                        