right click sheet tab>view code>insert this>save

'McCurdy.Here is something inspired by Don Guillett.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRng As Range
Set MyRng = Target.EntireRow
Application.EnableEvents = False
On Error GoTo end1
Application.Cells.FormatConditions.Delete
With MyRng
 .FormatConditions.Add Type:=xlExpression, Formula1:= _
       "=ROW()=ROW(INDIRECT(CELL(""address"")))"
 With .FormatConditions(1).Font
      .Bold = True
      .Italic = False
      .ColorIndex = 1
 End With
 .FormatConditions(1).Interior.ColorIndex = 36
End With
end1:
Application.EnableEvents = True
End Sub