VBA/Excel/Access/Word/Application/StatusBar

Show message at status bar

 
Sub ShowMessage()
   Dim i As Long
   For i = 0 To 100
      If i Mod 100 = 0 Then
         Application.StatusBar = "Processing Record " & i
      End If
   Next i
   Application.StatusBar = False
End Sub

Update status bar

 
Public Sub ShowStatus()
  
  Application.ScreenUpdating = False
  
  Dim I As Long
  For I = 0 To 10000000
    If I Mod 1000000 = 0 Then
      Application.StatusBar = "Processing Record " & I
    End If
  Next I
  Application.StatusBar = False
  Application.ScreenUpdating = True
  
End Sub