How can I find out which listobject row is selected?

The user selects a cell. I have figured out (with the help of the internet) how to test if the selected cell is part of a listobject:

Function IsRangeInTable(rng As Range) As Boolean
'Function returns true if active cell is in a table and
'false if it isn't.

'Test for table.
'Statement produces error when active cell is not
'in a table.
On Error Resume Next
IsRangeInTable = (rng.ListObject.Name <> "")
On Error GoTo 0
End Function

But can I also find out which listrow is selected?

I found a solution:

lFirstTableRow = target.ListObject.ListRows(1).Range.Row
lCurrentListRow = target.Row - lFirstTableRow + 1