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" <(E-Mail Removed)> wrote in message
news:B8EE0D26-B542-4584-B97F-(E-Mail Removed)...
> 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
>>
>>
>>