Try:
..Range("A1:V1").AutoFilter Field:=1, VisibleDropDown:=True
instead of:
..Range("A1:V1").AutoFilter VisibleDropDown:=True

--
p45cal


"robs3131" wrote:

Hi,

I've been struggling with this one for a while -- I have a spreadsheet where
the user may or not have the Autofilter arrows being displayed prior to
running a macro. I always want to have the Autofilter arrows displayed for
all columns with values in Row 1 when the macro completes, regardless of if
the Autofilter arrows were on display prior to the person running the macro.
Below is the code I have tried, but I am getting an error (See error message
below). Any help is appreciated!

Error:
Run-time error '1004: AutoFiler method of Range class failed

Code:
With Sheets("Patent data with family data")

If .FilterMode Then
.ShowAllData
Else
.Range("A1:V1").AutoFilter VisibleDropDown:=True
End If

End With


--
Robert