The following code takes about 20 seconds to process,

Sheets("RecordOfRounds").Range("AllRecords"). _
AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("RecordOfRounds").Range("Fil terCriteria"), _
CopyToRange:=Sheets("HomeCourse").Range("FilterDes tination"), _
Unique:=False

Names are as follows:-
AllRecords
=OFFSET(RecordOfRounds!$A$52,0,0,COUNTA(RecordOfRo unds!$A$52:$A$65536),194)
FilterCriteria =RecordOfRounds!$A$1:$E$2
FilterDestination =OFFSET(HomeCourse!$A$52,0,0,1,194)


The following code processes almost instantaneously,

Sheets("RecordOfRoundsDetailed").Range("AllRecords Detailed"). _
AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("RecordOfRoundsDetailed").Ra nge("FilterCriteriaDetailed"),
_
CopyToRange:=Sheets("HomeDetailed").Range("FilterD estinationDetailed"),
_
Unique:=False

Names are as follows:-
AllRecordsDetailed
=OFFSET(RecordOfRoundsDetailed!$A$52,0,0,COUNTA(Re cordOfRoundsDetailed!$A$52:$A$65536),221)
FilterCriteriaDetailed =RecordOfRoundsDetailed!$A$1:$E$2
FilterDestinationDetailed =OFFSET(HomeDetailed!$A$52,0,0,1,221)

The data involved in both cases is almost the same - why should the first
case take so long?
Any help appreciated.
Sandy

Update
On doing a Control + End on sheet "RecordOfRounds" the highlighted cell was
in row 2093 - although it appeared that none of the rows between 70 and 2093
appeared to contain data???

Deleting rows 70 to 2093 seemed to improve the situation.
Down to under 10 seconds now.
Sandy


"Sandy" wrote in message
...
The following code takes about 20 seconds to process,

Sheets("RecordOfRounds").Range("AllRecords"). _
AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("RecordOfRounds").Range("Fil terCriteria"), _
CopyToRange:=Sheets("HomeCourse").Range("FilterDes tination"), _
Unique:=False

Names are as follows:-
AllRecords
=OFFSET(RecordOfRounds!$A$52,0,0,COUNTA(RecordOfRo unds!$A$52:$A$65536),194)
FilterCriteria =RecordOfRounds!$A$1:$E$2
FilterDestination =OFFSET(HomeCourse!$A$52,0,0,1,194)


The following code processes almost instantaneously,

Sheets("RecordOfRoundsDetailed").Range("AllRecords Detailed"). _
AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Sheets("RecordOfRoundsDetailed").Ra nge("FilterCriteriaDetailed"),
_

CopyToRange:=Sheets("HomeDetailed").Range("FilterD estinationDetailed"), _
Unique:=False

Names are as follows:-
AllRecordsDetailed
=OFFSET(RecordOfRoundsDetailed!$A$52,0,0,COUNTA(Re cordOfRoundsDetailed!$A$52:$A$65536),221)
FilterCriteriaDetailed =RecordOfRoundsDetailed!$A$1:$E$2
FilterDestinationDetailed =OFFSET(HomeDetailed!$A$52,0,0,1,221)

The data involved in both cases is almost the same - why should the first
case take so long?
Any help appreciated.
Sandy