I need to build a countdown timer and show it in a Excel spreadsheet thanks
A Ardus Petus May 8, 2006 #2 Paste the following code into a Module, and run it: Public Sub CountDown() Const oneSecond As Double = 1 / 24 / 3600 With Worksheets("Sheet1").Range("A1") .Value = .Value - oneSecond End With Application.OnTime Now + oneSecond, "CountDown" End Sub
Paste the following code into a Module, and run it: Public Sub CountDown() Const oneSecond As Double = 1 / 24 / 3600 With Worksheets("Sheet1").Range("A1") .Value = .Value - oneSecond End With Application.OnTime Now + oneSecond, "CountDown" End Sub