Shipbells On Time Function

[ADE2]

Hi
I would like to make play an audible alert on every half hour to remin
me that i need to look at the latest values in my spreadsheet.
So i would like alerts at ...18:30,19:00,19:30 etc.(24 hours a day)

I have heard of something called the Shipbells function but don't kno
how to write the code.

I already use the following code at the end of a Macro to test certai
conditions,this emits a beep,so an alternative sound would be best.

If the two alerts were activated at the same time would this cause
problem,which sound would get played?





If Range("M2").Value > Range("M7").Value And Range("M7") > "" Then

xcount = 1
For xcount = 1 To 5
Beep
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Next

End If


End Sub

Thanks for all your help

Ad

 

[Peo Sjoblom]

See:

http://www.cpearson.com/excel/ontime.htm

--


For everyone's benefit keep the discussion in the newsgroup.

Regards,

Peo Sjoblom

 

[Frank Kabel]

Hi
see: http://j-walk.com/ss/excel/tips/tip87.htm

 

[Bob Phillips]

http://www.entisoft.com/ESTools.htm

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)