Rem out the lines as shown in this revision or delete them entirely.
Sub HideArrows()
'hides all arrows
Dim c As Range
Dim i As Integer
i = Cells(1, 1).End(xlToRight).Column
Application.ScreenUpdating = False
For Each c In Range(Cells(1, 1), Cells(1, i))
' If c.Column <> 2 Then don't need this line
c.AutoFilter Field:=c.Column, _
Visibledropdown:=False
' End If don't need this line
Next
Application.ScreenUpdating = True
End Sub
Gord Dibben MS Excel MVP