Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Cells
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
.Font.Size = 10
End With
With Target.EntireRow
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
.Font.Size = 14
End With
End Sub