One way

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
With .EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
.Font.ColorIndex = 3
End With
End With
End With

End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Gordon" wrote in message
...
Hi...

I have an input form 600 rows deep and 35 columns across. Filling it in
can
be tedious. How can I get the active line to highlight the font on all of
the
cells in the active line red. And so no matter were you place the cursor,
all
cells on that row will show red text.

Thanks

Gordon