Progress Indicator code placement

Hi All

I got code for a progress Indicator from the Excel Easy website but I'm not certain where to put my specific code which will allow for the indicator to run. All i want to do is show the progress indicator running while workbook is saving. Any feedback please.

UserForm55 is my Progress Indicator with the following code:

Private Sub UserForm_Activate()
code
End Sub

Herewith the code for Code Module

Sub code()
Dim i As Integer
Dim pctCompl As Single
For i = 1 To 100
'ActiveWorkbook.Save
Unload UserForm55
pctCompl = i
progress pctCompl
Next i
End Sub

Herewith the code for Progress Module

Sub progress(pctCompl As Single)
UserForm55.TEXT.Caption = pctCompl & "% Completed"
UserForm55.BAR.Width = pctCompl * 2
DoEvents
End Sub

You cannot run other code while Excel is busy saving your workbook. A consequence of the way Excel is built.

The best you can do is make sure the StatusBar at the bottom of the Application Window is visible. That shows a progress bar while a large file is saved.

Hi cytop

Thanks for response. Unfortunately, my UserForm will be in fullscreen mode. No status bar visible.

Hi Jeff

You are absolutely right. i noticed that afterwards. I got confused with the code taken from the site....Thought one would have to put the progress in a loop.
As per cytops response "You cannot run other code while Excel is busy saving your workbook. A consequence of the way Excel is built". I guess it would not work anyway.

Is there a way to hava a message pop up while the book is saving and then close once done.

No progress bar is visible then - blame Mr Gates.

True lol

Thanks anyway...Back to the drawing board unless I can just have a MsgBox come up to say save in progress and the go away when done

You can't use a MsgBox as that will be Modal and pause all other code until the MsgBox is cleared by the user. Simplest option is to use a userform with an appropriate message showing and displayed Modelessly (Otherwise you hit the same problems as the messagebox).

I am able to do a UserForm, but how to get it to show while and during up until workbook is saved then to unload

Before starting the save, show the notice form with the vbModeless parameter, i.e.

myNoticeForm.Show vbModeless

Then after the save, hide the form

myNoticeForm.Hide or myNoticeForm.Unload

Why if my UserForm has a label saying Save in Progress, Does the "Save in Progress not show" when calling Userform

Hey guys

Does the VbModeless not allow for label or TextBox show

Can you perhaps explain how to go about doing that ....pretty please

Awesome
Thanks EssoExplJoe...Will give it a try

Thanks Cytop

Got it working. Code is as follows with Userform55 containing Label "Save in progress"

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Unload Me
UserForm55.Show vbModeless
DoEvents
ActiveWorkbook.Save
Unload UserForm55
UserForm22.Show
Application.ScreenUpdating = True
End Sub