Double Click Macro

I want to enable a double click macro for cells within a certain range within a table only. Currently I can assign a cell range.....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    If Not Intersect(Target, Range("H2:H50")) Is Nothing _
    And Not Target.Count > 1 Then
        Call HowManyUsed
        Cancel = True
    ElseIf Not Intersect(Target, Range("I2:I50")) Is Nothing _
    And Not Target.Count > 1 Then
        Call HowManyUsed
        Cancel = True
    End If
End Sub

I would like to use Table1 Header Used, Repaired, ect. Any suggestions?

Something like this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
    If Not Intersect(Target, Me.Range("Table1[[#All],[Used]]")) Is Nothing _
     And Not Target.Count > 1 Then
        Call HowManyUsed
        Cancel = True
    ElseIf Not Intersect(Target, Me.Range("Table1[[#All],[Repaired]]")) Is Nothing _
    And Not Target.Count > 1 Then
        Call HowManyUsed
        Cancel = True
    End If
End Sub

Thanks Bob worked great!

Hi Bob

I know it's the longest day, but there is no need to rush through it!!!
Check your time!

What is wrong with it?

Hi Bob

Apologies

It's me - I can't tell the time!!!!
I read 12:39 Am as being 12:39 PM - obviously not fully awake!

Where is that coffee pot?