Автофильтр vba скрыть стрелки

Question

Sub hiderows()

    Sheets("offer_sheet").Select
    Range("A1:P199").Select

        Selection.AutoFilter
        ActiveSheet.Range("$A$1:$P$199").AutoFilter Field:=16, 
        Criteria1:="=1", _ Operator:=xlOr, Criteria2:="="

        For i = 1 To 16

            ActiveSheet.Range("$A$1:$P$199").AutoFilter Field:=i, 
            Visibledropdown:=False
        Next i
End Sub

код должен фильтровать по значениям столбцов и скрывать стрелки фильтра. Код работает, но ничего не происходит. Помогите!