Hi All,

A nice trick to display the progress on Application.StatusBar

Option Explicit

Sub ProgressBar()
    Dim i               As Long
    Dim j               As Long
    Dim strChar         As String
    strChar = String(5, ChrW(9209)) '8718,9471,9787
    For i = 1 To 1000
        '//used the following loop only for demonstration purpose
        For j = 1 To 2000000: Next
        'add the following line within the loop
        Application.StatusBar = "Processing: " & String(i Mod 200, Chr(32)) & strChar
    Application.StatusBar = False

End Sub
Enjoy !