Here's the whole 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

If I have Autofilter applied and then run this macro, it gets down to the
errant part and gives the error message, then when I click "Debug" it goes
ahead and hides the arrows...........but leaves me hung up on that line of
code.

Vaya con Dios,
Chuck, CABGx3


"Dave Peterson" wrote in message
...
I think it could be lots of things--from worksheet protection to what c
is.

Maybe more code and more description about your data--did you apply
filters
already or what?

CLR wrote:

That's cool Dave, thanks, it basically works, but I have a little
problem
with it in my XL97

the following returns an error of "1004 Autofilter method of range class
failed"

c.AutoFilter Field:=c.Column, _
Visibledropdown:=False

Any idea how to fix?

Vaya con Dios,
Chuck, CABGx3

"Dave Peterson" wrote in message
...
Debra Dalgleish knows how:
http://contextures.com/xlautofilter03.html#Hide

CLR wrote:

Hi All........
Anyone know if it's possible to programmatically turn off the
DownArrows
on
the display while leaving the Autofilter in it's filtered
state?.....
I would like for my user to see only the Autofiltered results, and
not
be
aware that they can reorder them with the downarrows.
Otherwise, can I call my autofilter with code, then freeze it so the
downarrows do not work manually until I release them with more code.

TIA
Vaya con Dios,
Chuck, CABGx3

--

Dave Peterson

--

Dave Peterson