ExcelBanter - How can I set an alarm in Microsoft Excel

Paste this code into a standard module; It's a start for you.
HTH,
JMay

Dim MyMessage

Sub SetAlarm()
Dim temptime As String
Dim rtime As Date
temptime = InputBox("What Time should I Beep at you?")
MyMessage = InputBox("Enter short message")
rtime = TimeValue(temptime)
Application.OnTime rtime, "MBox"
End Sub

Private Sub MBox()
snz = MsgBox("This is your alarm " & vbNewLine & vbNewLine & _
MyMessage & vbNewLine & vbNewLine & " Do you wish to" & _
vbNewLine & "Extend the Alarm time?", vbYesNo)
If snz = vbYes Then tReset = InputBox("Enter new time")
If snz = vbYes Then nrtime = TimeValue(tReset)
Application.OnTime nrtime, "MBox"
If snz = vbNo Then Exit Sub
End Sub

"Binoj" wrote:

Have prepared a time-schedule table in Excel, and I'd like an Alarm to pop
up, as per this time-schedule