Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim HomeLine As Range
Dim Line As Range
Dim Line2 As Long
Cells.Interior.ColorIndex = xlNone
Line2 = Target.Row
Set HomeLine = Range("A" & Line2, Target)
Set Line = Range(Cells(Target.Row, 1), Cells(Target.Row, 24))
With Line
.Interior.ColorIndex = 8
End With
End Sub