Hi ~~,
Yes it can be done with offset and resize propertis! ;)
Code
-------------------
Dim rng As Range, c As Range
With ActiveSheet.AutoFilter.Range
Set rng = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
End With
For Each c In rng.Rows
MsgBox c.Row
c.Select
Next
-------------------
--
Message posted from
http://www.ExcelForum.com