Hi,
I have found the following code but cannot get it to work correctly:

Dim CD As Date
Sub RunTime()
CD = Now + TimeValue("00:00:01")
Application.OnTime CD, "Counter"
End Sub

Sub Counter()
Dim count As Range
Set count = [A1]
count.Value = count.Value - 1.1574074074074E-05
Call RunTime
End Sub

Sub DisableCount()
On ErrorResume
Next Application.OnTime
EarliestTime:=CD,Procedure:="Counter", Schedule:=FalseEnd Sub

I basically want to be able to enter a time in say A1 and get the macro to automatically count down until 0, I will then be adding conditional formatting. The parts of the code that I have entered in red are the same in the ditor so Im sure its just a formatting issue but I cannot work out whats wrong.
Any help on why if is not working would be most appreciated
Thanks
Johnny