Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Interior.ColorIndex = 2 Then ActiveCell.Interior.ColorIndex = 6 Else ActiveCell.Interior.ColorIndex = 2 End If End Sub