Thread: Alarm Clock?
View Single Post
  #2   Report Post  
Bernie Deitrick
 
Posts: n/a
Default

Rodney,

Copy the code below and paste it into a codemodule in a new workbook. Change
the path and filename in this line to the file that you want to play:

WAVFile = "C:\Sound Files\Trumpet1.wav"

Enter dates and times starting in cell A1, and going down the column (as
many as you want), in the format

5/12/2005 10:15:00 AM

Then run SetAlarms.

HTH,
Bernie
MS Excel MVP


Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub PlayWAV()
WAVFile = "C:\Program Files\Ahead\Nero\Trumpet1"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Sub SetAlarms()
Application.Calculate
Dim myCell As Range
For Each myCell In Range("A1", Range("A65536").End(xlUp))
Application.OnTime myCell.Value, "PlayWAV"
Next myCell
End Sub

Sub CancelAlarms()
Dim myCell As Range
For Each myCell In Range("A1", Range("A65536").End(xlUp))
Application.OnTime myCell.Value, "PlayWAV", , False
Next myCell
End Sub



"Rodney" wrote in message
...

I need to be called to my computer at differing
times during the day. (approx 15-20)

I have been using "Karen's Alarm Clock" but this
only allows 5 settings.

Can Excel be programmed to suit?

Thanks