try

Sub colorvisiblerows()
With Rows("1:" & Range("a" & Rows.Count).End(xlUp).Row)
.Interior.ColorIndex = xlNone
.SpecialCells(xlCellTypeVisible).Interior.ColorInd ex = 6
End With
End Sub

--
Don Guillett
SalesAid Software

"fgatch" wrote in message
...

hi,

not sure if this is possible, but i have a large range of unique data
which i filter through. when i perform a search for a single row and
all other rows are hidden, i'd like to highlight the single filtered
row in yellow. is this possible with a macro? any ideas?

thanks,

Frank


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/