Jasen2

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True ' turn off default action for doule click
    ' assumes you only have 1 list object on the sheet. If not you can be
    ' explicit by changing ListObjects(1) to ListObjects("ActualTableName")
    If Not Intersect(Target, ListObjects(1).DataBodyRange) Is Nothing Then

        'your code here

    End If
End Sub