The following sentence will turn offthe screen updating : Application.Screenupdating = False It's not necessary to turn on the screen updating.The following commands seem to do the trick: This is not directly answering your question at all, but simply providing an alternative.
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.
Screenupdating = True Copy-paste friendly code:' Turn off screenupdating: Application.
Screenupdating = False' Turn on screenupdating:' (happens automaticly after a module is finished): Application.
Screen Updating = False 'Turn off screen updating .
Display Status Bar = True 'Make sure the statusbar is visible End With Do Until int My Count = 6 Application.
Status Bar = Format(fraction Done, "0%") & " done..." ''// or, alternatively: ''// status Range.value = Format(fraction Done, "0%") & " done..." ''// Some code....... Display Status Bar = boo Status Bar State ''//Reset Status bar display setting Application.
Status Bar = False ''//Return control of the Status bar to Excel Application.
Display Status Bar ''//Get the statusbar display setting Application.