You could set a rng to the visible cells, and then iterate through these

Dim cell As Range
Dim rng As Range

Set rng = Columns("B:B").SpecialCells(xlCellTypeVisible)
For Each cell In rng
'...
Next cell


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Stefi" wrote in message
...
Hi All,

I created an autofiltered range consisting of one column with
Set filteredrng = entirerng.SpecialCells(xlVisible)
The statement
For each cell in filteredrng
shows correctly the cells in filteredrng.

How can I refer to cells in filteredrng if I do not use For each?
first cell in filteredrng (Row No of, Value of)
second cell in filteredrng (Row No of, Value of)
etc.

Thanks,
Stefi