Запомнить значение фильтра в Экселе - VB

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

День добрый.
На одном листе по фильтру ищу "бла-бла", если значение не найдено, то нужно это же значение найти на другом листе Экселя. Т.е. вручную ищется "бла-бла", а потом макросом "бла-бла" ищу на втором листе...
Если кто сталкивался с задачей запомнить значение фильтра - поделитесь, плз.

Решение задачи: «Запомнить значение фильтра в Экселе»

textual
                            Листинг программы 
                        

                            <font color="blue">If</font> ThisWorkbook.Worksheets(<font color="darkblue"><b>1</b></font>).AutoFilter.Filters(<font color="darkblue"><b>1</b></font>).<font color="blue">On</font> <font color="blue">Then</font>
        filter_string = ThisWorkbook.Worksheets(<font color="darkblue"><b>1</b></font>).AutoFilter.Filters(<font color="darkblue"><b>1</b></font>).Criteria1
    <font color="blue">End</font> <font color="blue">If</font>
                        