vba select entire row in table with Worksheet_SelectionChange event

[quarna]

Hi
Im trying to select the entire row in a table with the mouse click but im stuck.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveSheet.ListObjects("TabelOversigt").ListRows(?????).Range.Select
    
End Sub

I have tried the Target.Address, but i think its only allowed to reference a cell.
I need the "ListRows()" to be filled with the rownumber im clicking in the table

Thanks

 

[Fluff]

How about

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim Rng As Range
   
   Set Rng = Intersect(Me.ListObjects(1).DataBodyRange, Target.EntireRow)
   If Not Rng Is Nothing Then Rng.Select
End Sub

 

[quarna]

How about

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim Rng As Range
  
   Set Rng = Intersect(Me.ListObjects(1).DataBodyRange, Target.EntireRow)
   If Not Rng Is Nothing Then Rng.Select
End Sub

Wonderfull, thanks a lot.
Have a nice day

 

[Fluff]

You're welcome & thanks for the feedback.