Я протестировал 10-секундный интервал, и он сработал.
Private Sub CommandButton1_Click()
'any previous stuff
Application.OnTime Now + TimeValue("00:00:10"), "RemindMe"
End Sub
Следующая подпрограмма находится в модуле.
Sub RemindMe()
MsgBox "your time is up!"
End Sub
При этом окно Excel не зависает, вы все еще можете работать с листом.