In this video we show you how to use the StatusBar to show you where you are at in a loop

Code
===================

Sub Trick()

If Application.StatusBar = False Then
Application.StatusBar = “I didn’t know you could change this”
Else
Application.StatusBar = “”
End If

End Sub

Sub LoopTrip()

s = 1
e = 10000

For r = s To e
If r Mod 50 = 0 Then
Application.StatusBar = r & ” of ” & e
End If
Next

Application.StatusBar = “”
End Sub

Chris Terrell

View all posts