Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
If Not Intersect(Target, [B9:E26]) Is Nothing Then
Cancel = True
With Target
If .Count = 1 And Not IsEmpty(.Value) Then
Set r = Range(Cells(.Row, 2), Cells(.Row, 5))
If r.Interior.ColorIndex = 3 Then
r.Interior.ColorIndex = 4
Else
r.Interior.ColorIndex = 3
End If
End If
End With
End If
Set r = Nothing
End Sub