BTW, I would make this slight amendment so that it doesn't show blank when
no filter is applied (personal preference)

Function FilterCriteria(Rng As Range) As String
'By Stephen Bullen via j-walk.com
Dim Filter As String
Application.Volatile
Filter = ""
On Error GoTo Finish
With Rng.Parent.AutoFilter
If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then
Filter = "All"
GoTo Finish
End If
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " AND " & .Criteria2
Case xlOr
Filter = Filter & " OR " & .Criteria2
End Select
End With
End With
Finish:
FilterCriteria = Filter
End Function



--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:eg8fliyJFHA.2936@TK2MSFTNGP15.phx.gbl...
> You could add
> Application.Volatile
> at the start.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Dennis" <Dennis@discussions.microsoft.com> wrote in message
> news:73D83A15-BC7C-4C31-B612-6659328A8D05@microsoft.com...
> > Using XL 2003 & 2000
> >
> > OK, with help, I was able to utilize Steve Bullen's FilterCriteria()
> Function.
> >
> > That said, apparently the only way to refresh the data in the display
cell
> > is to re-activate the formula by pressing <ENTER> in the Fx Box.
> >
> > Can the display cells be made to refresh in real-time or, second best,
by
> F9?
> >
> > FYI (Background Info):
> >
> > ************************************************************II placed
this
> > formula into cell A1: =FilterCriteria(A3)
> > Cell A3 contains the Autofilter down-arrow for column A
> > *************************************************************
> > Function FilterCriteria(Rng As Range) As String
> > 'By Stephen Bullen via j-walk.com
> > Dim Filter As String
> > Filter = ""
> > On Error GoTo Finish
> > With Rng.Parent.AutoFilter
> > If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
> > With .Filters(Rng.Column - .Range.Column + 1)
> > If Not .On Then GoTo Finish
> > Filter = .Criteria1
> > Select Case .Operator
> > Case xlAnd
> > Filter = Filter & " AND " & .Criteria2
> > Case xlOr
> > Filter = Filter & " OR " & .Criteria2
> > End Select
> > End With
> > End With
> > Finish:
> > FilterCriteria = Filter
> > End Function
> > *************************************************************
> >
> > Also, why does this formula not refresh as do other formulas in the
> > worksheet? Is it because this particlar Function must be "force-called"
> for
> > each refresh?
> >
> > TIA Dennis
>
>