One more method to highlight the active cell.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'partial row highlighter
'Mike H. . . . .does not destroy existing formats
Cells.FormatConditions.Delete
With ActiveCell.Resize(1, 1).Cells 'adjust resize range to suit
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
.Interior.ColorIndex = 28
End With
End With
End Sub
Gord