Tip Printed from ExcelTip.com
Countdown in status bar using VBA in Microsoft Excel


Question:
A count down from 30 to 0 seconds is to be displayed in the status bar.


Answer:
Insert the following code in the standard module.









Sub CountDown()

   Dim intCounter As Integer

   Dim bln As Boolean

   bln = Application.DisplayStatusBar

   Application.DisplayStatusBar = True

   For intCounter = 30 To 1 Step -1

      Application.StatusBar = intCounter & " Seconds..."

      Application.Wait Now + TimeSerial(0, 0, 1)

   Next intCounter

   Application.StatusBar = False

   Application.DisplayStatusBar = bln

End Sub