Advanced Filter - extract range missing or invalid field name

[sorensjp]

Hi all,

I'm unable to debug

Run-time error '1004':
The extract range has a missing or invalid field name.

Sheet3.Range("BF4:CW" & LastRow).AdvancedFilter xlFilterCopy, CriteriaRange:=.Range("FA1:GR2"), CopyToRange:=Sheet3.Range("FA4:GR4"), Unique:=True

I'm running an Advance filter on/in Sheet 2 ('ACT_MEM') and placing the Filtered Data on Sheet 9 (WEAPS_QUAL_RPTS). What am I missing here? The code with the bug is located on the 'Weaps_RPT_Misc' Module called Sub WeaponsRpt_Table(). I'm not seeing where my error is. I have copied the Headers and Pasted for the Advanced Filter.

V/r,
Jim