Hi Ned,
You can get the source line with function Erl. You will need to add number to each line that execute code.
An example of how to use the Erl
Code:
Private Sub Form_Load()
Dim iTest As Integer
On Error GoTo CheckError
1 If iTest = 0 Then
2 iTest = Exp(320)
End If
Exit Sub
CheckError:
Debug.Print "Number: " & Err.Number
Debug.Print "Source: " & Err.Source
Debug.Print "Description: " & Err.Description
Debug.Print "Line: " & Erl
End Sub
Stéphane Lajoie