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

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

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

HTH,
Ryan

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Tom" wrote:

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

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" wrote:

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

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

Regards,
Tom

"FSt1" wrote in message
...
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" wrote:

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