Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("b:b,f:f,j:j,n:n,r:r,v:v,z:z,ad:ad"), Target) Is Nothing And Target.Row < 35 Then
If Target.Interior.ColorIndex = 4 Then
Target.Interior.ColorIndex = 3
Else
If Target.Interior.ColorIndex = 3 Then
Target.Interior.ColorIndex = 1
Else
If Target.Interior.ColorIndex = 1 Then
Target.Interior.ColorIndex = 4
End If
End If
End If
End If
Cancel = True
End Sub