Filtro sin flechas de lista desplegable

[t4373125]

Me gustaria aplicar un filtro por codigo VBA y que no salgan las flechas de lista desplegable en todos los titulos.

Solo he logrado quitarla en la columna de la condicion:
Range("A1").AutoFilter 5, "Juan", VisibleDropDown:=False

Y de manera lenta y poco elegante en todas las demas:
Range("A1").AutoFilter 1, VisibleDropDown:=False
Range("A1").AutoFilter 2, VisibleDropDown:=False
Range("A1").AutoFilter 3, VisibleDropDown:=False
Range("A1").AutoFilter 4, VisibleDropDown:=False
Range("A1").AutoFilter 6, VisibleDropDown:=False

alguien sabe un método directo y rapido para quitar las flechas de los demas titulos de las columnas?

Gracias

[Juan Pablo González]

La verdad no conozco un método más rápido, pero lo que se puede hacer es un ciclo, así:

Sub T()

Dim i As Integer

For i = 1 To ActiveSheet.AutoFilter.Range.Columns.Count

    If i = 1 Then

        ActiveSheet.AutoFilter.Range.AutoFilter i, 5, VisibleDropDown:=False

    Else

        ActiveSheet.AutoFilter.Range.AutoFilter i, VisibleDropDown:=False

    End If

Next i

End Sub

Aquí lo importante es la condición del i = 1, en la que si es cierto, pongo la condición del filtro, y si no, lo único que se hace es desaparecer la flecha.