You could use this one, that displays a percentage of completion on the
bottom left of the excel workbook:
Sub StatusBar()

Dim x As Integer
Dim MyTimer As Double

'Change this loop as needed.
For x = 1 To 250

'Dummy Loop here just to waste time.
'Replace this loop with your actual code.
MyTimer = Timer
Do
Loop While Timer - MyTimer < 0.03

Application.StatusBar = "Progress: " & x & " of 250: " & Format(x /
250, "Percent")
DoEvents

Next x

Application.StatusBar = False

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