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