En \"timer\" i excel der kan lave nedtælling

Public TimerTics as Long

Sub StartTimer()
TimerTics=30
MinTimer
End Sub

Sub MinTimer()
TimerTics=TimerTics-1
Range(\"A1\").Value=TimerTics
If TimerTics>0 Then
Application.OnTime EarliestTime:=now()+1/(60*60), _
    Procedure:=\"MinTimer\", Schedule:=False
End If
End Sub

hmm, jeg får følgende fejlmeddelse:

  Run-time error \'1004\':

  Method \'OnTime\' of object \'_Application\' failed

Hvad kan det skyldes?

Public TimerTics As Long

Sub StartTimer()
TimerTics = 30
MinTimer
End Sub

Sub MinTimer()
TimerTics = TimerTics - 1
Range(\"A1\").Value = TimerTics
If TimerTics > 0 Then
Application.OnTime EarliestTime:=CDate(Now() + TimeValue(\"0:00.01\")), _
    Procedure:=\"MinTimer\"
End If
End Sub

Sådan :o)

/Jennemaan

Tak. Du får et virtuelt klap på skulderen med kommentaren: \"godt klaret!\"

hvordan sætter man den formel ind i excel ? altså hvad kommer koden til at hedde ?