Ah, yes! I remember when i did this for the very first time. It takes a bit
to make these things work, but it's not too bad, just stick with it if it
doesn't work the first time you try (...and it won't).

http://www.cpearson.com/excel/Progress.htm

http://spreadsheetpage.com/index.php...ess_indicator/


There is a way to have excel auto-calculate how long it will take. That
method is 'best practices' but harder. There is another way to 'force' the
progress bar to chug along, sort of like this:

Dim PB As clsProgBar
Set PB = New clsProgBar
With PB
..Title = "Progress Bar"
..Caption1 = "Executing, Please wait, this may take a short while..."
..Show
DoEvents

PB.Progress = 5
'some code here...
PB.Progress = 10
'more code here...
PB.Progress = 15
'even more code here...
PB.Progress = 20
'starting to get the idea???

PB.Progress = 100

This is a lot easier to set up, but not very eloquent.



--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Cerberus" wrote:

I have a macro that takes about 30 to 40 seconds to run and I would like a
progress indicator to run while while the macro runs. The macro hides
anything that has a zero value in column A, starting at row 5 and finishing
on row 7818. I have a User Form that has a frame and lable that I was going
to use to indicate the progress. The issue, for me atleast, is creating the
formula to make the progress bar work.

Thanks for any ideas on how to write the fromula in advance.