This works well. Right click on sheet tabview codeinsert thisSAVE.
As written, does the entire row. Just change
Set MyRng = Target.EntireRow
to
Set MyRng = Target
for only one cell


'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


--
Don Guillett
SalesAid Software

"Bob Reynolds" wrote in message
. ..
I have a need to have the active cell in my worksheet to be a highlighted
color for easy recognition. Is there a way to program whatever cell is
active to change to highlighted color and have the highlight move from
cell
to cell.
thanks in advance
Bob Reynolds