To schedule an event relative to the current time - for example, 20 minutes from now
Sub Main()
Application.OnTime Now + TimeValue("00:20:00"), "DisplayAlarm" End Sub Sub DisplayAlarm()
Beep
MsgBox "Wake up. It's time for your afternoon break!" End Sub