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.
Thanks in advance.
I've applied filter to row 10. Starting from columns C to K.
Code:
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