Update status bar : StatusBar « Application « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Application
3. StatusBar

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

 

Related examples in the same category