To unfilter data

To unfilter data

Sub unfilter()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
   Sheets("Input Sheet").Range("A12:aq12").AutoFilter = False
 
Next ws
On Error GoTo 0

End Sub