Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldIndex As Long
Static OldCell As Range
On Error Resume Next
OldCell.Interior.ColorIndex = OldIndex
If Not OldCell Is Nothing Then
OldIndex = Rows(Target.Row).Interior.ColorIndex
End If
Rows(Target.Row).Interior.ColorIndex = 6
Set OldCell = Rows(Target.Row)
End Sub