Unfilter a whole sheet

[drop05]

I am trying to see if there is a way to unfilter a whole sheet, sheets that have tables and non table filters, check to see if there is a filter and if there is then unfilter the tab/sheet

 

[Jeffrey Mahoney]

I put this in my PERSONAL workbook in a standard module and then create a keyboard shortcut, Ctrl-Shift-A. It will unfilter all tables and ranges

Sub ShowAllData()
  Dim tbl As ListObject
  Dim Sht As Worksheet
  Dim Cel As Range
  
  Set Sht = ActiveSheet
  Set Cel = ActiveCell
    
  On Error Resume Next
  ActiveSheet.ShowAllData
    
  For Each tbl In Sht.ListObjects
    tbl.HeaderRowRange.Select
    ActiveSheet.ShowAllData
  Next tbl
  On Error GoTo 0
  
  Cel.Select
End Sub

 

[RDeal]

try using ALT+A+C, this clears the filters for a table