DoubleClick macro not working at all

[alexdowd2]

I have a simple Double Click macro that works elsewhere but in this particular workbook nothing happens. I double click into the cell and it just goes to edit mode, no macro runs. EnableEvents is True and the only other thing I can think of is it has something to do with both sheets being SQL Query-Connected tables OR that there are duplicate IDs in Column 1 on the Invoice Data worksheet. If it's the latter, is there a way to maintain this functionality with duplicates?

Private Sub Workshseet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If ActiveCell.Column = 1 Then

Sheets("Invoice Data").ListObjects("Invoice").Range.AutoFilter Field:=1, Criteria1:=ActiveCell.Value
Sheets("Invoice Data").Activate

End If

End Sub

 

[Domenic]

It looks like you have a typo. It should be . . .

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Hope this helps!

 

[alexdowd2]

It looks like you have a typo. It should be . . .

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Hope this helps!

You're the man, thank you sir

 

[Domenic]

You're very welcome, cheers!