Each worksheet has two properties that will be of use here- FilterMode and
AutoFilterMode. The first of these indicates whether any rows are hidden by a
filter (either AutoFilter or Advanced Filter), the second indicates whether
the AutoFilter mode is active for a sheet, but will still = TRUE if all rows
are visible (i.e. AutoFilterMode only indicates whether the AutoFilter
dropdowns are visible on a worksheet). Note also that FilterMode is read
only, whereas AutoFilterMode is read/write (and can therefore be used to turn
off autofilter mode).

There is also a handy worksheet method ShowAllData, which will make all rows
visible, but will not remove the AutoFilter dropdowns. This method will raise
an error if there are no hidden rows.

Put all this together and you get something like this:
Sub RemoveAllFilters()
   Dim ws As Worksheet
   
   For Each ws In ActiveWorkbook.Worksheets
       If ws.FilterMode Then
           ws.ShowAllData
       End If
       ws.AutoFilterMode = False
   Next ws
End Sub

Cheers
Dave

Sub bbb()
For Each sh In Worksheets
 If sh.FilterMode Then
   sh.ShowAllData
 End If
Next
End Sub

is possibly what you want.