'======================================================================================

'##### Сброс фильтра в "умной таблице"

'

'--------------------------------------------------------------------------------------

Sub DelFiltersInListObject(ByVal oSh As Worksheet)

Dim oTb As ListObject

Set oTb = oSh.ListObjects(1)

If oTb.AutoFilter.FilterMode Then

For i = 1 To oTb.ListColumns.Count

oTb.Range.AutoFilter Field:=i

Next

End If

'ActiveSheet.ListObjects("Таблица3").Range.AutoFilter Field:=5

End Sub

'======================================================================================