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
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.