1: 2: 3: 4: 5: 6: 7: 8:
Sub SetAlarm() Application.OnTime TimeValue("12:39:00 pm"), "DisplayAlarm" End Sub Sub DisplayAlarm() Beep MsgBox "Wake up. It's time for your afternoon break!" End Sub