Status bar információ

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

' Forrás: http://www.exceltip.com/show_tip/Menus,_Toolbars,_Status_bar_in_VBA/Countdown_in_status_bar_using_VBA_in_Microsoft_Excel/347.html