Hide all autofilter arrows in a worksheet without a loop

You can still reduce the lines of code through this -

for i = 1 to 25
     ActiveSheet.Range("A1:P1").AutoFilter Field:=i, VisibleDropDown:=False
next i