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" <(E-Mail Removed)> wrote in message
news:ee9qM%(E-Mail Removed)...
> 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
>
>