OnTime event neće da radi

Ispod vidite školski primer. Procedura "DisplayAlarm" radi ako se ručno pokrene. Problem je što procedura "SetAlarm" neće da radi. Ako stavim TimeValue("15:13:40") opet ne radi. Jedino radi kada umesto TimeValue(...) stavim komandu Now i ručno pokrenem "SetAlarm" makro.

Sub SetAlarm()
Application.OnTime TimeValue("3:13:40 pm"), "DisplayAlarm"
End Sub

Sub DisplayAlarm()
Beep
MsgBox "Wake up. It's time for your afternoon break!"
End Sub

Šta nije u redu sa boldovanim kodom?

Ne znam zasto kod tebe ne radi, mozda zaboravis svaki put da kliknes na button koji aktivira proceduru Sub SetAlarm()
Normalno radi i sa ("18:20:00"). Pogledaj u primeru. Pozdrav