Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("E5:E7500")) Is Nothing Then
c = Target.Interior.ColorIndex
d = Target.Value
Cancel = True
Target.Resize(1, 11).Interior.ColorIndex = Switch(c = xlNone, 1, c = 1, xlNone)
Target.Value = Switch(d = 0, 1, d = 1, 0)
End If
End Sub