Updating the display during lengthy operations
Some examples with similar approaches can be found in the following links: Dim x As Integer Dim My Timer As Double 'Change this loop as needed. Status Bar = "Progress: " & x & " of 50: " & Format(x / 50, "0%") Next x Application.
Status Bar = Topic & " [" & String(Current Status, "|") & _ Space(Number Of Bars - Current Status) & "]" & _ " " & pct Done & "% Complete" ' Clear the Status Bar when you're done ' If Current = Total Then Application.
Also by using a class, you can set it up to handle initializing and releasing the Status Bar automatically.
Once the object goes out of scope it will automatically clean up and release the Status Bar back to Excel.
The bar I want is just a little blue bar moves right and left and repeats till the update is done, no percentage needed.
I know I should use the In the past, with VBA projects, I've used a label control with the background colored and adjust the size based on the progress.
Search for updating the display during lengthy operations:
This approach also coincides with how Windows UI operate, where you specify the region that needs to be redrawn and then you send a message to the message pump for that control to paint itself.