here's an option. create a userform with a label on it

Sub test()
With UserForm1
.Show vbModeless
.Label1.Caption = "Calculating...Please Wait"
End With
DoEvents
Application.Wait (Now() + TimeValue("00:00:10"))
Unload UserForm1
End Sub

--


Gary


"Roger on Excel" wrote in message
...
I would like a temporary message box to appear momentarily when a macro is
activated.

The macro typically takes 10 seconds or more to run and at the start i would
like a box to pop up saying "calculation in progress" for a few seconds and
then disappear without the need to press a button.

Can anyone help?

Thanks, Roger