Saving files. Please wait.

[sungen99]

A little help again please. I need a macro that will

Display a message box saying “Please wait saving files…..”

Save the active file (I know how to do this)

Close the message box.

End macro.



Thanks very much.

 

[Chip Pearson]

You can't have a popup display while the file is saving.because
MsgBox and WshShell.Popup are both modal; that is, they halt code
execution until they are replied to. You could create a UserForm,
display it modelessly , save the file then kill the form. This
will work in XL2000 and higher.

MyForm.Show vbModeless
ActiveWorkbook.Save
Unload MyForm


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com






"sungen99"
message
news:[email protected]...

 

[sungen99]

Ok, I thought I created a userform that just said.

“Please wait… Saving files”

When the macro runs I get the popup userform… but it does not show the
words “Please wait… Saving files” its just a big white box.

Am I just totally stupid? I looked at other examples of userforms and I
see nothing that is different.

 

[Chip Pearson]

Try repainting the form.

UserForm1.Repaint


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"sungen99"
message
news:[email protected]...

 

[sungen99]

Yep. that worked!

Who come it did not work before? I would like to understand. this is my
code



Sub TEST()

UserForm1.Show vbModeless
UserForm1.Repaint
ActiveWorkbook.Save
Unload UserForm1

End Sub