<div>
Mighty1072,<br />
<br />
For all sheets it would be more like:<br />
<br />
chris_bottomley<br />

<pre><code id="code-471691">Sub FilterOff()
Dim ws As Worksheet

    'XXXXX Turn off auto filter XXXXXXXXXX
    For Each ws In ThisWorkbook.Worksheets
        If ws.AutoFilterMode Then Selection.AutoFilter
    Next
    'xXXX Turn off auto filter XXXXXXXXXXXXXXXX

End Sub
</code></pre>
</div>


Mighty1072,

For all sheets it would be more like:

chris_bottomley


Sub FilterOff()
Dim ws As Worksheet

    'XXXXX Turn off auto filter XXXXXXXXXX
    For Each ws In ThisWorkbook.Worksheets
        If ws.AutoFilterMode Then Selection.AutoFilter
    Next
    'xXXX Turn off auto filter XXXXXXXXXXXXXXXX

End Sub


<div>
Glad to help<br />
<br />
Chris
</div>


<div>
<div class="content wysiwyg-content">
I have a code below that remove auto filter. But I wrote the code incorrectly. <br />
<br />
Please help rewrite it. The purpose of the code is: if the sheet has auto filter then turn it off.<br />
<br />
THanks,<br />

<pre><code id="code-471682">Sub FilterOff()

    'XXXXX Turn off auto filter XXXXXXXXXX
    Dim ws As Worksheet
  ws = ActiveWorkbook.Worksheets
  If ws.Worksheets.AutoFilterMode Then Selection.AutoFilter
    'xXXX Turn off auto filter XXXXXXXXXXXXXXXX

End Sub
</code></pre>
</div>
</div>


I have a code below that remove auto filter. But I wrote the code incorrectly. 

Please help rewrite it. The purpose of the code is: if the sheet has auto filter then turn it off.

THanks,

Auto Filter Macro Help - Rewrite code

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.