Highlight active cell, un-highlight when no longer active?

Maybe:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows("1:" & ActiveSheet.UsedRange.Rows.Count).Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
End Sub