Hi Jako

Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
ws.AutoFilterMode = False
ws.Columns("A:Z").AutoFilter
Next ws
End Sub

--
XL2002
Regards

William



"Jako " wrote in message
...
| Please can someone tell me how to add an Autofilter on each worksheet in
| my workbook (Programmatically) from A1 to Z1.
|
| TIA
|
|
| ---
| Message posted from http://www.ExcelForum.com/
|