Autofilter for Three items?

[redhots4]

I want to click the down arrow from an autofilter and show rows where <Status Column> = Open or Research or Closed. (There are 10 statuses shown in that column.)

How can I configure the autofilter to this level of customization?

Thanks in advance!!

 

[the magician]

What are the other seven entries in the column?

 

[Datsmart]

I would suggest using Advanced Filter.
Below code will run advanced filter:

Sub FilterToAnotherSheet2()
    Dim FilterRange As Range, Criteria As Range, TargetRange As Range
    Dim CurrentData As Range, AF_Criteria As Range
'Clear old data first
    Sheets("Sheet3").Cells.ClearContents
'Set Range names
    On Error Resume Next
    ActiveWorkbook.Names("CurrentData").Delete                       'Delete old Name
    Sheets("Sheet1").Range("B1").CurrentRegion.Name = "CurrentData"  'ReName the range
    ActiveWorkbook.Names("AF_Criteria").Delete                       'Delete old Name
    Sheets("Sheet2").Range("B1").CurrentRegion.Name = "AF_Criteria"  'ReName the range
'Assign variables
    Set AF_Criteria = Sheets("Sheet2").Range("B1").CurrentRegion     '"Set" variable to use it later
    Set FilterRange = Sheets("Sheet1").Range("CurrentData")
    Set Criteria = AF_Criteria
    Set TargetRange = Sheets("Sheet3").Range("A1")
'Run Advanced Filter
    FilterRange.AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=TargetRange, CriteriaRange:=Criteria
    
    Sheets("Sheet3").Select
End Sub

This code assumes the following:
The data to filter exists in Sheet1
Your Criteria exists in Sheet2, must contain the same header row as Sheet1 data with advanced filter criteria in rows below. Like Open, Research and Closed in the proper column.
Sheet3 exists for Advanced filter output.