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