' Removes AutoFilter if one exists. Sub TurnFilterOffAllSheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets With ws .AutoFilterMode = False End With Next ws End Sub