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 !!