AFAIK you will have to unfilter all and re-apply a suitable filter.

--
Don Guillett
SalesAid Software

"scrabtree23" wrote in message
...
Here is my code:

Sheets("CEU Database").Select

If Sheets("Code").Range("L2").Value = "All" Then
'??? I need to unfilter Field: 1 only, and leave all other filtered
fields intact
Else
Cells.Select
Selection.AutoFilter Field:=1,
Criteria1:=Sheets("Code").Range("L2").Value
End If