Errobject

[bclists]

Can anybody provide the code needed to pass the error object to a
function or subroutine.

TIA.

[rkc]

<bc*****@yahoo.co.uk> wrote in message
news:ea********************************@4ax.com...

Can anybody provide the code needed to pass the error object to a
function or subroutine.

You mean like:

Sub CreateError()
On Error GoTo errHandler

Dim i As Long
Dim j As Long
i = 50

j = i \ 0

Exit Sub

errHandler:
Call ReadError(Err)
End Sub

Sub ReadError(e As ErrObject)
MsgBox e.Description, vbCritical, "Message from ReadError Sub routine."
End Sub

?