Извлечение значений из фильтра - VB

Формулировка задачи:

Уважаемые знатоки,
Есть афтофильтр, нужно извлечь из него в массив все значения. Пробовал:

arrFilter()
     f%
     intFilter  
    intFilter = 
     arrFilter(intFilter)
     f =   ActiveSheet.Range().AutoFilter.Filters.Count
         intFilter =  
            arrFilter(intFilter - ) = Range().AutoFilter.Filters(f)
            
            intFilter = intFilter + 
             Preserve arrFilter(intFilter)
            arrFilter(intFilter - ) = Range().AutoFilter.Filers(f)

Ругается, говорит "Object required".
Что делаю не так?

Решение задачи: «Извлечение значений из фильтра»

textual
                            Листинг программы 
                        
                            <font color="blue">If</font> <font color="blue">NOT</font> objF.<font color="blue">On</font> <font color="blue">Then</font>