Add Autofilter to A1:Z1 on workbook

[Jako]

Please can someone tell me how to add an Autofilter on each worksheet in
my workbook (Programmatically) from A1 to Z1.

TIA

 

[William]

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

(e-mail address removed)

| Please can someone tell me how to add an Autofilter on each worksheet in
| my workbook (Programmatically) from A1 to Z1.
|
| TIA
|
|
| ---
| Message posted
|