【ExcelVBA】同一フォルダ内のオートフィルタを解除したい

質問

VBAが書かれているファイルと同階層にある、全てのエクセルファイルの全てのシートのオートフィルタを解除したいです。

初心者のため、手始めに「ファイル内の全てのシートのオートフィルタを解除（すべて表示）する」というコードを考えているのですが、

Sub すべて表示()
Dim W As Worksheet
For Each W In Worksheets
ActiveSheet.ShowAllData
Next W
End Sub

とすると、
実行時エラー1004
WorksheetクラスのShowAllDataメソッドが失敗しました

となってしまいます。
何がいけないのでしょうか？

回答No.2

xls88

提示されたコードでは、同一ブック内の全ワークシートが操作対象です。
If文でAutoFilterModeを判定し処理をするようにしてみました。

Sub tes1()
　　Dim W As Worksheet
　　For Each W In Worksheets
　　　　If W.AutoFilterMode = True Then
　　　　　　On Error Resume Next
　　　　　　W.ShowAllData
　　　　　　On Error GoTo 0
　　　　End If
　　Next W
End Sub

お礼

ご回答ありがとうございます。無事解決しました。
あとはこのコードの外側に、同一フォルダ内のファイルを順次処理せよというコードを書けばいいと思うのですが、もし下記の解決法をご存知でしたら教えて頂けないでしょうか。

＊繰り返し処理はFileSearchを使おうかと思ったのですが、これは2007では使えないんですよね。
Excel2003と2007で使いたいので、どうしたものかと思っています。
ヒントだけでもご教示頂けますと助かります。