Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [C:C]) Is Nothing Then
Range("B" & Target.Row).Interior.ColorIndex = IIf(Range("B" & Target.Row).Interior.ColorIndex = 4, xlNone, 4)
End If
If Not Intersect(Target, [D:D]) Is Nothing Then
Range("B" & Target.Row).Interior.ColorIndex = IIf(Range("B" & Target.Row).Interior.ColorIndex = 6, xlNone, 6)
End If
If Not Intersect(Target, [E:E]) Is Nothing Then
Range("B" & Target.Row).Interior.ColorIndex = IIf(Range("B" & Target.Row).Interior.ColorIndex = 3, xlNone, 3)
End If
Cancel = True
End Sub