VBA/Excel/Access/Word/Application/StatusBar
Show message at status bar
<source lang="vb">
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
</source>
Update status bar
<source lang="vb">
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
</source>