Advanced Filter Error

All:

When I run this routine with the CopyToRange of A1:J2000, I get the
following error message:
Run-time error 1004
The extract range has a missing or illegal field name.

When I run it with the CopyToRange set to A1:I2000, it runs without an
error.

The problem that I am having is that my data extends across 209 columns
to HA.

The code below will only return 9 columns.

Is there anything that you can see that I am missing?

'Database range A4:HA1575
'Criteria G1:H2

Sub ApplyFilter() 'Move filtered data to activesheet
Sheets("Orders").Range("Database").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Orders").Range("Criteria"), _
CopyToRange:=Range("A1:J2000"), _
Unique:=False
End Sub

Thanks in advance.

Floyd

Is your "Database" range the same size than A1:I2000, basically you will have
to make sure the source and destination ranges are the same size, and that
the destination is empty.

"Floyd Bates" wrote:

>
> All:
>
> When I run this routine with the CopyToRange of A1:J2000, I get the
> following error message:
> Run-time error 1004
> The extract range has a missing or illegal field name.
>
> When I run it with the CopyToRange set to A1:I2000, it runs without an
> error.
>
> The problem that I am having is that my data extends across 209 columns
> to HA.
>
> The code below will only return 9 columns.
>
> Is there anything that you can see that I am missing?
>
> 'Database range A4:HA1575
> 'Criteria G1:H2
>
> Sub ApplyFilter() 'Move filtered data to activesheet
> Sheets("Orders").Range("Database").AdvancedFilter _
> Action:=xlFilterCopy, _
> CriteriaRange:=Sheets("Orders").Range("Criteria"), _
> CopyToRange:=Range("A1:J2000"), _
> Unique:=False
> End Sub
>
> Thanks in advance.
>
> Floyd
>
>