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
|