Code to show all/remove filter on a table

[adorlytanglao]

I found some code on other threads and from other forum sites and tried it. Apparently, i didn't understood the main issue of that specific before trying it to mine. Anyway, I have table with filter headers, I want to have a code to put on my activex button that when clicked it will show all the data on the table. When i tried some solution, I encountered this 2nd problem, all the filter headers are now gone and can't seem to know how to put it back. The thing is the table is there just not filter headers

 

[adorlytanglao]

bump no response

 

[ZVI]

Hi,
Try this code:

Sub UnFilter()
  Dim objTable As ListObject
  With ActiveSheet
    If .FilterMode Then .ShowAllData
    For Each objTable In .ListObjects
      objTable.AutoFilter.ShowAllData
    Next
  End With
End Sub

 

[adorlytanglao]

Thank you it worked.