Count down display

[Tom]

How to make the status bar display a count down message: "Count down 10" ...
to ... "Count down 0" in steps of 1 using any time interval?

Thanks!
Tom

 

[ryguy7272]

Follow the steps:
http://www.tushar-mehta.com/excel/software/clocks/countdown.html

The AddIn should probably go in: C > Documents and settings > 'name of your
computer' > Application Data > Microsoft > AddIns

HTH,
Ryan

 

[FSt1]

hi
this should work for you. i have it set to count down at 1 second intervals.
adjust to suit.
Sub countdownstatus()
Dim c As Long
c = 10
Do Until c = 0
Application.StatusBar = "Count Down " & c
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
c = c - 1
Loop
Application.StatusBar = False
End Sub

regards
FSt1

 

[Tom]

It does exactly what I'm looking for. Thanks FSt1

Regards,
Tom