Жмем ALT+F11 и в открывшемся VBA ставим обработчик на двойной клик, вот такой:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With ActiveCell.Interior
.ColorIndex = IIf(.ColorIndex > 0, 0, 4)
End With
End Sub