Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D9:D32")) Is Nothing Then
Call macro1(Target): Cancel = True
ElseIf Not Application.Intersect(Target, Range("F9:F32")) Is Nothing Then macro2 Target: Cancel = True
ElseIf Not Application.Intersect(Target, Range("H9:H32")) Is Nothing Then macro3 Target: Cancel = True
ElseIf Not Application.Intersect(Target, Range("U7:Z7")) Is Nothing Then macro4 Target: Cancel = True
End If
End Sub