add a userform witha lable...the default is label1.
add the forrlowing sub to a standard module...

Sub MyButtonCode()

Dim i As Long
Dim t As Long
UserForm1.Show False

For i = 1 To 1000
t = Timer
UserForm1.Label1.Caption = i
UserForm1.Repaint
Do
doevents
Loop Until Timer (t + 1)

Next

End Sub


the code loads the form in mode-less ...that means that the code continues
while the form is visible

--
Patrick Molloy
Microsoft Excel MVP
---------------------------------
I Feel Great!
---------------------------------
"hce" wrote in message
...

Hi

Can anyone please show me how i can get a message box to appear once
the macro is activated and disappear once the macro is done...? the
macro is activated via the command button on a useform... currently, i
am using the status bar to display the message i want to show but it is
not obvious enough... i have also tried to use the progress applet as
shown in pearson's website but due to my lack of vb knowledge i wasn't
able to modify the progress applet to run according to my macro... i
would really appreciate any help/advice provided...

cheers


--
hce
------------------------------------------------------------------------
hce's Profile:
http://www.excelforum.com/member.php...fo&userid=3518
View this thread: http://www.excelforum.com/showthread...hreadid=261277