Вот код, который применяет расширенный фильтр к столбцу A на листе Sheet1 (диапазон списка), используя диапазон значений на Sheet2 (диапазон критериев)

Range("A1:A100").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Sheet2").Range("A1:A10"), Unique:=False

После запуска этого кода мне нужно что-то сделать со строками, которые в данный момент видны на экране.

В настоящее время я использую такой код

For i = 1 to maxRow
   If Not ActiveSheet.Row(i).Hidden then
     ...do something that I need to do with that rows
   EndIf
Next

Есть ли какое-нибудь простое свойство, которое может дать мне диапазон строк, видимых после применения расширенного фильтра?