Sub ScheduleMe()
Application.OnTime TimeValue("10:30 AM"), "RunMe"
End Sub

Sub RunMe()
Beep
'ScheduleMe
End Sub

If you want each run to schedule another, then look at Chip Pearson's site

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


--
Regards,
Tom Ogilvy


"Soonernut " wrote in message
...
Can anyone show me how to change this to run lets say at 10:30 am?





You may want to play with Application.OnTime

Sub ScheduleMe()
Application.OnTime Now() + TimeValue("00:00:05"), "RunMe"
End Sub

Sub RunMe()
Beep
ScheduleMe
End Sub


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