ExcelM,

Here is another example and it works.

Sub SetAlarm()
Application.OnTime Now + TimeValue("00:01:00"), "DisplayAlarm"
End Sub

Sub DisplayAlarm()
Beep
MsgBox "Wake up. Its time for your afternoon break!"

End Sub


Charle

--
Message posted from http://www.ExcelForum.com