Hi Izzy,

(1) See Chip Pearson at:

Progress Indicator For VBA
http://www.cpearson.com/excel/Progress.htm


(2) Alternatively see Robin Hammond' suggestions at:

A Progress Bar Class
http://www.enhanceddatasystems.com:8...rogressBar.htm


(3) See John Walkenbach a:

Displaying a Progress Indicator
http://j-walk.com/ss/excel/tips/tip34.htm

(4) See also Andy Pope at:

Progress Meters
http://www.andypope.info/vba/pmeter.htm

(5) See Michel Pierron's NG suggestion:

http://tinyurl.com/27jyvm



---
Regards,
Norman

Or a very simple one:

Sub StatusProgressBar(lCounter As Long, _
lMax As Long, _
lInterval As Long, _
Optional strText As String)

Dim lStripes As Long

If lCounter Mod lInterval = 0 Then
lStripes = Round((lCounter / lMax) * 100, 0)
Application.StatusBar = strText & _
String(lStripes, "|") & _
String(100 - lStripes, ".") & "|"
End If

End Sub


RBS


"Norman Jones" wrote in message
...
Hi Izzy,

(1) See Chip Pearson at:

Progress Indicator For VBA
http://www.cpearson.com/excel/Progress.htm


(2) Alternatively see Robin Hammond' suggestions at:

A Progress Bar Class
http://www.enhanceddatasystems.com:8...rogressBar.htm


(3) See John Walkenbach a:

Displaying a Progress Indicator
http://j-walk.com/ss/excel/tips/tip34.htm

(4) See also Andy Pope at:

Progress Meters
http://www.andypope.info/vba/pmeter.htm

(5) See Michel Pierron's NG suggestion:

http://tinyurl.com/27jyvm



---
Regards,
Norman