Thanks Bob for the added info...
Jim

"Bob Phillips" wrote in message
...
Jim,

Perennial problem of progress bars is knowing what point in the loop you
are. Your example is very simple because you have a very fixed boundary,
100000, so it is easy to calculate the position, but in real world
examples
it is not so clear cut. As the objective is to show something is
happening,
it is the visual feedback that is important. Because of this, what I tend
to
do is call a progress bar routine many times that goes from 0% to 100%
relatively quickly, doing this from several points that are
'self-contained'. That way, you provide feedback regularly, you even get
away with no progress showing when moving from one code section to
another,
and coding is more manageable. There are still elements of trial and error
in the code, but less fine tuning.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jim May" wrote in message
news:xoOsd.481$ln.305@lakeread06...
Have tried below implementing "Displaying Progress% in Status Bar" as
recommended
in one of J Walkenbach's books ("How to" was a bit brief...) any way as
Macro RunABigOne runs the % remains unchanged at 100% << probably what
I've
told it to do.
Can someone assist me in correcting to what is intended?
TIA,

Sub RunABigOne()
UpdateStatusBar 0
For x = 1 To 10000
Cells(x, "C").Value = "This is a test"
Next x
StopPC
End Sub

Sub UpdateStatusBar(PctDone)
Application.StatusBar = _
"Percent Completed: " & Format(PctDone, "100%")
End Sub

Sub StopPC()
Application.StatusBar = False
End Sub