Hello,

You can use SpecialCells(xlCellTypeVisible).


Code:
--------------------

Dim rng As Range, c As Range
Set rng = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTy peVisible)
For Each c In rng.Rows
MsgBox c.Row
c.Select
Next

--------------------



---
Message posted from http://www.ExcelForum.com/