If statement and filters.

[AATU87]

Hi everyone,

I have a large data set where on some sheets, a filter has been applied to the top row. However, on some sheets, no filter has been applied to the top row.
I would like to have all top rows filtered.
Can IF statement be used to check whether the top row has filters already?

Thanks in advance!

 

[Fluff]

How about

Sub AATU87()
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      If Not Ws.AutoFilterMode Then Ws.Range("A1").AutoFilter
   Next Ws
End Sub