Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    u = Target.Address
    a = Left(u, 4)
    If a = "$EB$" Then
        Range("CS" & Replace(Mid(u, 5, 15), "EB", "EQ")).Interior.ColorIndex = xlAutomatic
        Cancel = True
    End If
End Sub

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim dat As Long
Dim pat As Long
dat = Cells(Rows.Count, 132).End(xlUp).Row
If Not Intersect(Target, Range("EB7:EB" & dat)) Is Nothing Then
Cancel = True
    pat = Target.Row
    Range(Cells(pat, 97), Cells(pat + 2, 147)).Interior.ThemeColor = xlThemeColorDark1
End If
End Sub