This is the code:
'Private Sub cboRetention_Change()
' get_items Macro
' recorded 6/19/00 by Chuck Williams
' Range("AI1:AL232").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("L25:L26"), CopyToRange:=Range("AT:AV"), Unique:=False
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range

Set rng1 = Worksheets("transfer").Range("itembyreten")
Set rng2 = Worksheets("transfer").Range("criteria")
Set rng3 = Worksheets("transfer").Range("extract
With activeWorksheets.Sheets("transfer").Range(rng1)
.AdvancedFilter xlFilterCopy, CriteriaRange:=rng2, CopyToRange:=rng3, _ Unique:=False
End With
End Sub
I still get the runtime error "advancedfilter in range class failed"
Microsoft isn't any help either.