Or something like this:


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

Dim lStripes As Long

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

End Sub


RBS


wrote in message
ps.com...
Have you considered writing to the status bar?

Application.StatusBar = "Completed task A starting task B"