vba-clear-all-filters.vb

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'INPUT         : Sheet, the worksheet on which you'd like all filters cleared
'DESCRIPTION   : this sub will remove all filters on a worksheet safely
'
Public Sub ClearAllFilters(Sheet As Worksheet)
    With Sheet
        .AutoFilterMode = False
        If .FilterMode = True Then
            .ShowAllData
        End If
    End With
End Sub