You need to trap the error and display the message. Example

Sub Test()
On Error Goto errHandler
'more code
Exit Sub

errHandler:
Msgbox "some message"
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Vick" wrote in message
...
Is there a way that I can have a message box display when an error is
received while running a Macro?

Vick