Excel+VBA – reset filtru tabulky při jejím zavření

Jestli pracujete ve firmě ve více lidech na jedné tabulce a používáte filtry, tak se vám už určitě stalo, že jste otevřeli tabulku a byly tam vyfiltrované nějaké položky podle potřeb někoho jiného a vy jste to museli nejdřív zrušit.

Já to vyřešil tak, že se u příslušné tabulky při ukládání (případně by šlo při otvírání filtr prostě zrezetuje. Následující makro je třeba přiřadit objektu ThisWorkbook („Pricelist“ je název listu, kde chci při ukládání rezetovat filtr, šlo by samozřejmě smyčkou projít všechny):

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
 ActiveWorkbook.Sheets("Pricelist").ShowAllData

End Sub