Below is an example to get a simple progress bar going on an active cell.
' ' This code was borrowed from http://www.viiweb.com and is free to use without ' warranties or guarantees. ' ' call this sub during your looping with current row that you are on Sub showProgress(ByVal currentRow As Double) Dim strValue strValue = ActiveCell.Value ' puts the indicator on the active cell If currentRow Mod 100 = 0 Then ' change every 100 rows ' / | \ - If StrComp(strValue, "/") = 0 Then ActiveCell.Value = "|" ElseIf StrComp(strValue, "|") = 0 Then ActiveCell.Value = "\" ElseIf StrComp(strValue, "\") = 0 Then ActiveCell.Value = "-" ElseIf StrComp(strValue, "-") = 0 Then ActiveCell.Value = "/" Else ActiveCell.Value = "-" ' default to something End If DoEvents End If End Sub
Tested Platform: Excel 2003