Rick -

What format did you use for the time in Cell A8 to get this to work?

Application.OnTime TimeValue(Sheets("Set").Range("A8")), "cls"

I've not been able to puzzle one out for A8 that didn't throw a Run
Time Error 13 - Type Mismatch when the line above tried to execute.

One thing that did work for me was to put in A8 the cell formula

=TIMEVALUE("17:12:50")

and then change the VBA code to

Application.OnTime Sheets("Set").Range("A8"), "cls"

jamescox


--
jamescox
------------------------------------------------------------------------
jamescox's Profile: http://www.thecodecage.com/forumz/member.php?userid=449
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=110860