testrow = Rows(21)
set rng = Activesheet.Autofilter.range.Columns(1)
if not Intersect(rng.specialCells(xlVisible),Testrow) is nothing then
' the specified row is visible
End if

Depends on how you colored your rows. If you looped through them and
colored them, then you would have to do that each time the filter criteria
is changed, checking which rows are visible and keeping track of whether to
color the row or not.

--
Regards,
Tom Ogilvy


Bjørnar Hartviksen wrote in message
...
Problem with Visual Basic for Excel 2000:
I have an Excel model containing a list/table area. On this list I use the
AutoFilter feature, which allows me to show only the entries currently of
interest. What I need is a method (using VBA) to determine whether or not
any given row in the table is currently visible (or filtered out).
Alternatively, I need another method to solve this problem: Since there
are
quite a few columns in my table, I want to use a different background
color
on every other row to give the user a better overview. This is not
difficult, but when the user changes the filters, the whole layout is
destroyed. How can I keep the pattern?

All suggestions appreciated
hartvix