Status Bar Progress Meter

[Admin]

Hi All,

Here are some status bar progress meters you could try

Sub StatusBarProgressMeters()
    
    Dim i   As Long
    Dim n   As Long
    Dim c   As String
    Dim a
    
    a = Array(8, 8718, 9670, 10026, 10687)
    
    For i = 1 To 50
        If (i - 1) Mod 10 = 0 Then
            n = n + 1
            c = ChrW(a(n - 1))
        End If
        Application.Wait Now + TimeSerial(0, 0, 1)
        Application.StatusBar = "Processing " & String(i Mod 10, c)
    Next
    Application.StatusBar = False
    
End Sub

Enjoy !!

[analyst]

@ Thanks, Admin

This could be nice code, when someone is running a big procedures, and not sure whats going on except mouse pointer turns as hourglass.

I guess, the main Macro/Code/Procedure should start before

Application.StatusBar = False

[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