Count down display
 

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

Count down display
 

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

Count down display
 

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

Count down display
 

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