Status Bar Progress Meter

[snb]

the same result:

Sub StatusBarProgressMeters()
    For j = 1 To 50
        Application.Wait Now + TimeSerial(0, 0, 1)
        Application.StatusBar = "Processing " & String(j Mod 10, ChrW(Choose(j \ 10 + 1, 8, 8718, 9670, 10026, 10687)))
    Next
    Application.StatusBar = False
End Sub