Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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