Reset filter before saving a worksheet using VBA in Microsoft Excel

Question:
Reset all filter criteria in all worksheets when saving a workbook.

Answer:
Insert the following code in This Workbook module.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,Cancel As Boolean)
   Dim wks As Worksheet
   For Each wks In Worksheets
      If wks.FilterMode = True Then
         wks.ShowAllData
      End If
   Next wks
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Terms and Conditions of use

The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.

Visit Us On TwitterVisit Us On FacebookVisit Us On Google PlusVisit Us On Youtube