Excel VisualBasic Script

Sub showFilter()
     ActiveSheet.ListObjects("Table1").ShowAutoFilter = False
End Sub