Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not Intersect([A4:O28], Target) Is Nothing And .Count = 1 Then
[A4:O28].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 14)).Interior.ColorIndex = 36
End If
End With
End Sub