Excel2010 です。ピポッドテーブルフィルタ

質問

Excel2010 です。ピポッドテーブルフィルターを解除するVBAですが、フィルターモードになっていない時にエラーが出てしまいます。また、PivotFields("○○○")が複数あるのですが、それぞれフィールド名を記述するのではなく、
一括で処理出来れば助かります。
ご教示のほど、よろしくお願い致します。

Sub ピポッドテーブルフィルター解除テスト()
Dim pf As PivotField
Dim p As PivotItem
Set pf = ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("店舗名")
pf.Orientation = xlPageField
pf.ClearAllFilters
For Each p In pf.PivotItems
Select Case p.Value
End Select
Next

End Sub

回答No.1

ushi2015

こんにちは
Sub test1()
　　On Error Resume Next
　　ActiveSheet.PivotTables("ピボットテーブル1").ClearAllFilters
　　On Error GoTo 0
End Sub
こんな感じで出来ないですか？