The following commands seem to do the trick: Specifically, if you are dealing with a User Form, then you might try the Repaint method.
But the screen doesn't refresh, or stops refreshing at some point (e.g. The task eventually completes but the progress bar is useless. For i=1 to imax ' imax is usually 30 or so fraction Done=cdbl(i)/cdbl(imax) Application.Status Bar = Format(fraction Done, "0%") & "done..." ' or, alternatively: ' status Range.value = Format(fraction Done, "0%") & "done..." ' Some code.......Screen Updating = True ''//Turn on screen updating End Sub Text boxes in worksheets are sometimes not updated when their text or formatting is changed, and even the Do Event command does not help.As there is no command in Excel to refresh a worksheet in the way a user form can be refreshed, it is necessary to use a trick to force Excel to update the screen.
Next i Sub Progress Meter() Dim boo Status Bar State As Boolean Dim i Max As Integer Dim i As Integer i Max = 10000 Application.
Screen Updating = False ''//Turn off screen updating boo Status Bar State = Application.