Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A21")) Is Nothing Then
Range("B2:G21").Interior.Color = RGB(255, 255, 255)
Range(Cells(Target.Row, 2), Cells(Target.Row, 7)).Interior.Color = RGB(0, 0, 255)
End If
End Sub