Hide Filter Arrows

[adamsm]

How could I make the following code to hide all the filter arrows including the column 2?

I've applied filter to row 10. Starting from columns C to K.

Sub HideArrows()
'hides all arrows except column 2
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
  c.AutoFilter Field:=c.Column, _
    Visibledropdown:=False
 End If
Next
Application.ScreenUpdating = True
End Sub

Thanks in advance.

 

[jasonb75]

Why do you need a macro to do that? You can just click the filter button in the toolbar to remove them.

 

[adamsm]

Because I do not want to keep the filter arrows visible but to filter the sheet with the help of another code.

 

[jasonb75]

As soon as you hide the arrow on the column that is being filtered it will show the hidden rows anyway.

You need to work on the logic of

Sub hidefilter()
Application.ScreenUpdating = False
' select range not hidden by filters
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Select
' remove filter and show the hidden rows
Selection.AutoFilter
' hide everything
ActiveSheet.UsedRange.EntireRow.Hidden = True
' unhide the filter selection
Selection.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

I've gone with hiding then unhiding as there is no invert selection (that I can find) in excel, can probably be improved, but this is a quick test to make sure I'm on the right lines of what you need.