http://www.ozgrid.com/VBA/autofilter-criteria.htm  
Function AutoFilter_Criteria(Header As Range) As String  
 
Dim strCri1 As String, strCri2 As String  
 
   Application.Volatile  
 
   With Header.Parent.AutoFilter  
 
       With .Filters(Header.Column - .Range.Column + 1)  
 
           If Not .On Then Exit Function  
 
                  strCri1 = .Criteria1  
 
           If .Operator = xlAnd Then  
 
               strCri2 = " AND " & .Criteria2  
 
           ElseIf .Operator = xlOr Then  
 
               strCri2 = " OR " & .Criteria2  
 
           End If  
             
 
       End With  
 
   End With  
     
 
   AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2  
 
End Function

Прошу прощения - пример забыл.

{quote}{login=}{date=05.05.2010 01:17}{thema=}{post}так?{/post}{/quote}  
Да, спасибо.  
А если просто включен/выключен - я правильно исправил или можно еще легче:  
Function AutoFilter_Criteria1(Header As Range) As String  
Dim k As String  
Application.Volatile  
   With Header.Parent.AutoFilter  
       With .Filters(Header.Column - .Range.Column + 1)  
           If Not .On Then  
           k = 0  
           Else  
           k = 1  
           End If  
       End With  
   End With  
       AutoFilter_Criteria1 = k  
End Function

{quote}{login=}{date=06.05.2010 10:32}{thema=}{post}да правильно{/post}{/quote}  
А почему эта функция не работает в условном форматировании. Делаю так: =AutoFilter_Criteria1(A1) = 1 - и никакой реакции, хотя в ячейке все работает?