Worksheet_BeforeDoubleClick

[trevorc]

Hi all,
I'd like to know how to use the code below on several worksheets that have the same fields, I use different sheets for each of our customers and would like to be able to add a new customer without having to add the vba code to each worksheet. Can I put it in the workbook reference somehow to make it work for all sheets in the workbook, based on the activesheet reference or is this not possible?

Sample found on web...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A3:A25")) Is Nothing Then


'code
'code
'code
End If
End Sub

[Debaser]

Yes, you need the Workbook level equivalent. This needs to be in the ThisWorkbook module:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Sh.Range("A3:A25")) Is Nothing Then
    'code
    'code
    'code
    End If
End Sub

[trevorc]

Thanks for that, It works great.