If ActiveSheet.AutoFilter.Filters.Item(1).On = False Then Selection.AutoFilter Field:=1, Criteria1:="1" End If