This might help:
http://www.xl-logic.com/xl_files/vba/active_clock.zip

Col