try adding:
With Application
.Calculation = xlManual
.ScreenUpdating = False
End With

* your code here *

With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With

--
sb
"IrelandA" wrote in message
...
Dear All

Can anyone give any tips/advice on how to improve the performance of
Advanced Filters. (Additional VBA code, etc).

At the moment, my filter (working on a VBA macro) takes almost 2 minutes
to
complete a range of about 1500 rows by 8 columns which is much longer than
I
was expecting.

Any advice gratefully received.

Regards

Al