Code Line Number in VBA

[Guest]

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

 

[Tom Ogilvy]

If you number your lines, you can use 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

 

[NickHK]

Masoud,
The MZ Tools add-in (http://www.mztools.com/) can make this easier, along
with many other taks.

NickHK