You can also try adding a progress bar, but for this you need to do a little
more work. First you have to create a form and place a progressbar object in
it, then you use the following code:
Sub ProgressBar ()
Dim f As UserForm1
Dim i As Integer

Set f = New UserForm1
f.ProgressBar1.Min = 0
f.ProgressBar1.Max = 10000

f.Show vbModeless

For i = 1 To 10000
f.ProgressBar1.Value = f.ProgressBar1.Value + 1
DoEvents
Next

f.Hide

Set f = Nothing

End Sub

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Scott" wrote:

I want to put a message on top of the form when the program is running, such
as "Please wait while the updating is in the progress.", and the message
will disappear or replaced by another message like "The update is completed."
How to do this?

Your help will be appreciated.

Scott