Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim C
Cancel = True
C = Target.Interior.ColorIndex
Target.Interior.ColorIndex = Switch(C = xlNone, 3, C = 3, 6, C = 6, 4, C = 4, 5, C = 5, xlNone)
If Target.Interior.ColorIndex <> xlNone Then
Target.Value = 1
Else
Target.Value = ""
End If
End Sub