Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If Not Intersect(T, [c15:c39]) Is Nothing And T.Count = 1 Then
If Cells(T.Row, 2).Resize(, 10).Interior.ColorIndex = 45 Then
Cells(T.Row, 2).Resize(, 10).Interior.ColorIndex = xlNone
Else
Cells(T.Row, 2).Resize(, 10).Interior.ColorIndex = 45
End If: End If
End Sub