Maybe...

Sub TEST()
Sheets("Store Data").Select
with worksheets("sheet99")

with .range("a1")
if isempty(.value) then
'skip it
else
Selection.AutoFilter Field:=8, Criteria1:=.value, _
Operator:=xlTop10Items
end if
End with

with .range("a2")
if isempty(.value) then
'skip it
else
Selection.AutoFilter Field:=20, Criteria1:="" & .value
end if
end with

with .range("a3")
if isempty(.value) then
'skip it
else
Selection.AutoFilter Field:=21, Criteria1:="" & .value
end if
end with
end with
End Sub

Maybe you can pick out something worth saving.

Marie Bayes wrote:

I don't know if anyone can help. I need to create some code that operates
autofilter, I don't have a problem doing this:
Sub TEST()
Sheets("Store Data").Select
Selection.AutoFilter Field:=8, Criteria1:="10", Operator:=xlTop10Items
Selection.AutoFilter Field:=20, Criteria1:="30", Operator:=xlAnd
Selection.AutoFilter Field:=21, Criteria1:="50", Operator:=xlAnd
End Sub
However, the criteria and operator will change everytime, the user will be
putting the criteria and operator into cells on another sheet and I need the
code to pick up this data from the cells. Plus, there will sometimes be only
1, 2 or 3 critieria, ie, not all three selections will be made everytime.

Is this at all possible? Thanks in advance.

--

Dave Peterson