hightlighting rows?

J

just1creation

is it possible to a row to be highlighted automatically when the curso
lands on that row?

example:
if my cursor lands on A1, i would like the whole row to be highlighted
and when i press enter and the cursor drops down to A2, then that ro
will be highlighted. and A1 is no longer highlighted..
 
D

Don Guillett

right click sheet tab>view code>insert this>save

'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
[email protected]
"just1creation" <[email protected]>
wrote in message
news:[email protected]...
 
J

just1creation

can you make it so that when you print it still looks the same...
because now when i print it, it shows that it is highlight and in bold
letters.:)
 
Top