Check is a single row in Listobject is selected

[neodjandre]

I am looking for a way to check if the user has selected a single cell or single row within a Listobject. If this is the case, then I would like to return the value from Column 1 of the Listobject for the particular row.

Not sure how to start with this one. any help is much appreciated.

many thanks
Andrew

 

[Fluff]

Maybe

Sub neojandre()
   Dim Tbl As ListObject
   On Error Resume Next
   Set Tbl = Selection.ListObject
   On Error GoTo 0
   If Not Tbl Is Nothing And Selection.Rows.Count = 1 Then
      MsgBox Intersect(Tbl.DataBodyRange.Columns(1), Selection.EntireRow)
   End If
End Sub