
Dim CountDown As Date
Sub Timer()
CountDown = Now + TimeValue("00:00:01")
Application.OnTime CountDown, "Reset"
End Sub
Sub Reset()
Dim count As Range
Set count = [W1]
count.value = count.value - 1
If count <= 0 Then
[W1] = 5
End If
Call Timer
End Sub
Sub StopTimer()
Exit Sub
ThisWorkbook.EndReview
ThisWorkbook.Close
End Sub
|
