I am writing a VBA a code in Excel (VB6 format). I need to
know is there any methods that I can store the" code line
number" in a variable. This will help me a lot for error
trapping.

I would appreciate your help.

Regards
Masoud

If you number you lines, you have the line number in erl

Sub Tester1()
On Error goto ErrHandler:
001 for i = 1 to 10
002 j = i ^ 2
003 next i
004 err.Raise 5001
005 for i = 1 to 10
006 k = i ^ 2
007 next i
008 exit sub
ErrHandler:
msgbox err.Number & " at line number " & erl
End Sub


for example.

--
Regards,
Tom Ogilvy


"Masoud" wrote in message
...
I am writing a VBA a code in Excel (VB6 format). I need to
know is there any methods that I can store the" code line
number" in a variable. This will help me a lot for error
trapping.

I would appreciate your help.

Regards
Masoud

Hi Tom,

Thanks for the answer. Is there any way that we can get the line number
without being obliged to add the line numbers. Our code is a legacy code with
more than 1 Million line of VBA code:)

"Tom Ogilvy" wrote:

If you number you lines, you have the line number in erl

Sub Tester1()
On Error goto ErrHandler:
001 for i = 1 to 10
002 j = i ^ 2
003 next i
004 err.Raise 5001
005 for i = 1 to 10
006 k = i ^ 2
007 next i
008 exit sub
ErrHandler:
msgbox err.Number & " at line number " & erl
End Sub


for example.

--
Regards,
Tom Ogilvy


"Masoud" wrote in message
...
I am writing a VBA a code in Excel (VB6 format). I need to
know is there any methods that I can store the" code line
number" in a variable. This will help me a lot for error
trapping.

I would appreciate your help.

Regards
Masoud

The ASAP Utilities add-in has a tool to automatically add or
remove line numbers. See http://www.asap-utilities.com/ for
details.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Masoud" wrote in message
...
Hi Tom,

Thanks for the answer. Is there any way that we can get the
line number
without being obliged to add the line numbers. Our code is a
legacy code with
more than 1 Million line of VBA code:)

"Tom Ogilvy" wrote:

If you number you lines, you have the line number in erl

Sub Tester1()
On Error goto ErrHandler:
001 for i = 1 to 10
002 j = i ^ 2
003 next i
004 err.Raise 5001
005 for i = 1 to 10
006 k = i ^ 2
007 next i
008 exit sub
ErrHandler:
msgbox err.Number & " at line number " & erl
End Sub


for example.

--
Regards,
Tom Ogilvy


"Masoud" wrote in message
...
I am writing a VBA a code in Excel (VB6 format). I need to
know is there any methods that I can store the" code line
number" in a variable. This will help me a lot for error
trapping.

I would appreciate your help.

Regards
Masoud