Question about Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

[Photomofo]

I would like to have it so that when you double click on a cell (any cell in my workbook) you trigger an event. I've tried all of these but none of them work. Is there a security setting in Excel that may be blocking this type of code?

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Stop
End Sub


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If Sh.Name <> "Data" Then Exit Sub
   Cancel = True
   Global_Filter
End Sub


Private Sub Workbook_SheetBeforeDoubleClick_2(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If Sh.Name <> "Data" Then Exit Sub
   Cancel = True
   If Not Intersect(Target, Sh.Range("A1:F1")) Is Nothing Then
      Global_Filter
   ElseIf Target.Address(0, 0) = "J1" Then
      Sh.ShowAllData
   End If
End Sub

 

[Joe4]

Have you accidentally disabled events?

If so, you can re-enable them by manually running this code:

Sub ReEnableEvents()
    Application.EnableEvents = True
End Sub

Also note that in order for Event Procedure VBA code to run automatically, it MUST be placed in the appropriate modules (i.e. Sheet code needs to go in the Sheet modules, Workbook code needs to go in the "ThisWorkbook" module).

 

[Photomofo]

Aha... I didn't have the code in the ThisWorkbook module. That worked. Thank you!

 

[Joe4]

You are welcome.
Glad I was able to help!