Status Bar Progress Meter

Hi All,

Here are some status bar progress meters you could try :)

Code:

---

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

@ 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

Code:

---

Application.StatusBar = False

---

the same result:

Code:

---

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

---