Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Const c_TanColor As Long = 10079487
    Const c_LastCol As Integer = 9
    Static intRow As Integer
    Static rngTemp As Range
        If intRow <> 0 And intRow <> 1 Then
            With rngTemp
                If .Font.Color <> 255 Then
                    .Interior.Color = c_TanColor
                    .Font.Bold = False
                End If
            End With
        End If
        intRow = Target.Row
        If intRow <> 1 Then
            Set rngTemp = Range(Cells(intRow, 1), Cells(intRow, c_LastCol))
            With rngTemp
                .Interior.Color = vbYellow
                .Font.Bold = True
            End With
        End If
End Sub