Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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