To add a ProgressBar in Excel 2003 Macro

Hi Everyone,

I'm building a Excel Macro. This Macro updates a word document and save them in different name for each iteration. This takes a long time. so to inform the user that macro is functioning in backgroud i just want to let them know through a Progress Bar. Surprisingly Progressbar addin not working in Excel 2003. So i'm using Userform & Label combination. I'm using two Labels one with maximum width set and another one set with minimum width. so for each iteration the later Label's width will keep on increasing.

I'm facing a problem here. My logic is working fine and macro does wat it is supposed to do. But the userform Hanging during the execution. Its turining white while the code is executing. I worked in debug mode and label widths are getting updated correctly. Can u please help me what i'm missing here. attaching the screenshots and code. Thanks in advance.

Please Login or Register  to view this content.

Original Userform.JPGUserform Hanging.JPG

Hi,
Try to force repaint the user form, using .Repaint method of the UserForm. Also I would suggest to add DoEvents statement if the loop is too long. That should prevent from hang up.

Buran