Bill,

Oops. My bad (whatever exactly that means <g). I thought I was replying
to the OP, which doesn't show up in my newsreader, OE, as happens sometimes.

While I'm here, since I can't reply to the OP anyway, here's a simple little
progress bar I made years ago. I admitted even then in my comments that
it's dorky. It could be put into text box on the worksheet or UserForm or a
cell (where it works best with a non-proportional font like Courier), or the
Status bar, etc.

WorkToDo = 20 ' 20 units of work - also sets length of char string of
progress bar
WorkDone = 5 ' update as routine runs, 0 to WorkToDo

ProgressIndicator = String$(WorkDone, "+") & String$(WorkToDo - WorkDone,
"-")

Range("PB") = ProgressIndicator
ActiveSheet.TextBox1.Text = ProgressIndicator : DoEvents
Application.StatusBar = ProgressIndicator

Maybe someone can use it.
--
Earl Kiosterud
www.smokeylake.com

"Bill Martin -- (Remove NOSPAM from address)"
wrote in message ...
Earl Kiosterud wrote:
Bill,

Chip Pearson has a progress bar at www.cpearson.com
--
Earl Kiosterud
www.smokeylake.com

I understand, and I have played with it. It's great. It also requires
more of the user to know how to load it, declare variables, etc. If
you're up to that it's great. Some users here aren't always at that level
though and a dirt simple approach is occasionally useful as an
alternative -- IMHO. Stephan had already mentioned Chip's progress bar
approach so I just thought I'd point out a different one.

Bill