Automatic Selected Row Highlight

This code must be placed in the Private Module of the Worksheet.

This code will highlight the current row as you select it. But only if the row is NOT empty.

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

Code Snippits