right click sheet tabview codecopy/paste thissave
now the active cell will be hightlighted while not disturbing other
formatting

'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
'Application.Cells.Font.Size = 10
With MyRng
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ROW()=ROW(INDIRECT(CELL(""address"")))"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 1
End With
'.Font.Size = 20
.FormatConditions(1).Interior.ColorIndex = 36
End With
end1:
Application.EnableEvents = True
End Sub

--
Don Guillett
SalesAid Software

" wrote in
message ...
I have a worksheet that keeps the active cell shaded as the cell moves down
the column. This was done awhile back, but I can't remember how it was
done.
The active cell only moves down a column, not across the rows. Once data
has been entered into the cell and the enter key is hit, the next row's
cell
is now active and shaded. Can anyone help me?

(A2 is active and shaded. Data is entered into A2 and the enter key hit.
A3 is now active and shaded. A2 now has no shading.)