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

该代码应根据列值进行过滤并隐藏过滤器箭头。该代码运行，但是什么也没有发生。帮助！