I've inquired about this before, but it still isn't working. I'm trying
to get XL to determine which cells are to be filtered by using the
CurrentRegion method (or whatever it is). The filter range varies from
datasheet to datasheet. I've declared FilterRange as a range, but can't
get XL to set it equal to the current region from cell A1. Any ideas
how to do this?

RecSht.Select
Range("a1").Select

Set FilterRange = Selection.CurrentRegion.Select<-----Object
required error

CtyExtr.Select
RecSht.Range("FilterRange").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=RecSht.Range("aa1:aa2"), _
CopyToRange:=Range("A5"), Unique:=False

Thanks again!