Hi Kevin,
Another is to use a Text Box e.g. for "Text Box 12"

At the start of code

ActiveSheet.Shapes ("Text Box 12").Visible=True

and at the end

ActiveSheet.Shapes ("Text Box 12").Visible=False

Bear in mind though the text box is always there even if you can't see it :)

Regards,
Don

"Keivn Green" wrote in message
...
Is there a way to make a message box come up only while a macro is running
and then have it go away once the procedure is done?