Hi Jason,

You may try to use the code below.

Different rg value will do different Filter and get different result.

Sub Macro1()
Dim rg As Range
'Set rg = Sheets("Sheet1").Range("C1:C2")
Set rg = Sheets("Sheet1").Range("D1:D2")
Range("A1:A16").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
rg, Unique:=False
End Sub


Best regards,

Peter Huang

Microsoft Online Community Support
==================================================
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.