Just to add to Daniel's response, you don't need to add line numbers to
every line. If you just scatter them every so often, it will report the last
line number it encountered as the offending line. You could then home in on
the actual line.

There is also a free VBE addin, MZ-Tools, that, amongst other things, adds
and removes line numbers to and from your code. You can get it at
http://www.mztools.com/v3/download.aspx

--
__________________________________
HTH

Bob

"Daniel.C" wrote in message
...
You can use "erl" if your code lines are numbered :
14 On Error Resume Next
15 Workbooks.Open "NotAvalidOne.xls"
16 MsgBox Erl
--
Regards.
Daniel
"RyanH" a écrit dans le message de news:
...
Is there a way to return the Line Number where an error occured in a
module?

I currently have this and I think it would be useful to know the error
location.

Sub TEST()

On Error GoTo ErrorHandler

Const ModuleName As String = "Module1"
Const SubName As String = "TEST"

' my code here
Exit Sub

'*****************
ErrorHandler:
Call ErrorHandler(ModuleName, SubName, "Error Line Location Here")

End Sub
--
Cheers,
Ryan