Solved: Applying an Advanced Filter Using VBA

[Opv]

I am trying to test the following code to apply an advanced filter on an existing database of classmates. The script does nothing except select of the range of cells to be filtered. My criteria range includes "="Attending"" (without the outside quotation marks).

[vba]
Sub filterClassmates()
Worksheets("MyContacts").Activate
Range("Q3", Range("Q1000").End(xlUp)).Select
Selection.AdvancedFilter action:=xlFilterCopy, CriteriaRange:=Range("Q1"), CopyToRange:=Worksheets("Test").Range("A3"), Unique:=True
Worksheets("Test").Activate
Range("A1").Select
[/vba]
What is preventing this filter from working properly?