Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.TintAndShade = 0 r = ActiveCell.Row Rows(r & ":" & r).Interior.Color = 255End Sub
