Forgot to paste!
 

ooops!

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Dim strRow As String
Cells.FormatConditions.Delete


With Target.EntireRow
strRow = .Address
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=COUNTA(" & strRow & ")0"

.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 15
End With
End Sub