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

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

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

how do you number your lines?
--
Cheers,
Ryan


"Daniel.C" wrote:

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

Wht is the advantage to having line numbers? Is this the only case you would
need line numbers?
--
Cheers,
Ryan


"Bob Phillips" wrote:

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

Manually, unless you use the addin indicated by Bob. As far as I know,
numbering lines has no great use, but certainly, the addin should have other
interesting functionalities.
Daniel
"RyanH" a écrit dans le message de news:
...
how do you number your lines?
--
Cheers,
Ryan


"Daniel.C" wrote:

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