simplistic Progress bar

used this for something earlier in year

Glad to help

Hi sintek !

This kind of progress bar code is good enough only for small data / procedure
but for bigger ones it dramatically lengthens the procedure execution time each time the user form is updated !

In your example it is refreshed 50 000 times but for a % from 0 to 100 it really needs to be refreshed only a hundred times,
the reason why the better is to test if the next % level is reached before to update it …

As some moderators can badly understand my will : that's not any sarcasm, just an obvious advice, direction, reminder, …

As the Idea is to just do something if the next % is reached :

• Amend the Type of variable CurrentProgress as Byte or Integer.
  
  
• Amend its calculation * 100 … (So the variable ProgressPercentage is useless now !)
  
  
• Add a variable for the next % to reach :
  as starting from 0 the variable P must be initialized to 1 at the beginning of the procedure.
  
  
• Add a condition to the update & refresh (DoEvents) : If CurrentProgress >= P Then …
  
  Within this If block, do not forget to increase P by 1 for the next update to reach.

I need to grab & connect an Excel computer, wait for a little short while …

Try the revamped workbook below …

Notice without 'Pause statements' it's an instant 100% reached but you can see the benefit as it is !

Thanks sintek for this unexpected rep' ! Just an easy logic : update only if needed as 100 updates are faster than 50 000 …