Private Sub Worksheet_SelectionChange(ByVal Target As Range)Rows(Target.Row).Interior.Color = vbRedEnd Sub
