Error 1004 update autofilter and pivottable

[fonz]

Hello,

I have made a VBA program to update a two pivot tables and two
autofilters in excel 2000, no problems. But in excel 97 give the
program a error 1004. The first autofilter gives no problems. But the
second autofilter give a error like "Autofilter method of Range Class
Failed" or excel gives a failed error and quits. Can somebody help me
out?

gr.
Fons Heuven

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Tabel E").Select
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd,
Criteria2:="<>"

Sheets("Tabel E2").Select

Application.DisplayAlerts = False
ActiveSheet.PivotTables("Draaitabel2").RefreshTable
Application.DisplayAlerts = True
CommandButton1.TakeFocusOnClick = False
ActiveCell.Activate
Sheets("tabel E2").Range("a14").Select

 

[Myrna Larson]

I don't know why you are getting the error, but I would try modifying the code
to remove any existing filter before you apply a new one. I don't know what
that code looks like off-hand. Turn on the macro recorder and do it manually
to find out.