Hello.
In the sheet i have autofilter And after appled autofilter I need get of all
number rows in .AutoFilter.Range.SpecialCells(xlCellTypeVisible)

Thank you for you time

Valery,

Not quite sure what you are looking for.... try, maybe, this:

Sub Macro1()
Dim myA As Range
Dim myC As Range
Dim myR As Range

Set myR = Intersect(Columns("B:B"), Range("B2").CurrentRegion) _
.SpecialCells(xlCellTypeVisible)
For Each myA In myR.Areas
For Each myC In myA.Cells
MsgBox "Cells in row " & myC.Row & " are visible."
Next myC
Next myA
End Sub

HTH,
Bernie
MS Excel MVP


"Valery" wrote in message
...
Hello.
In the sheet i have autofilter And after appled autofilter I need get of all
number rows in .AutoFilter.Range.SpecialCells(xlCellTypeVisible)

Thank you for you time