Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. 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