【Excel】(続)複数シートのオートフィルターで一項目を選択する方法について

質問

いつもお世話になっております。
表記の件で、昨日マクロをご教示頂きました。
http://okwave.jp/qa4039109.html

当初はうまく作動していたのですが、
ネットから探してきましたオートフィルターを解除するマクロを
別に設けたところ、それが理由かどうかわかりませんが、
作動はするものの、「*」を選択せず、通常終了となります。
（エラーメッセージは出てきません）

理由がわかりましたら改善致したく、
ご教示の程宜しくお願いいたします。

================================================
教えて頂いたマクロ↓

For Each sheet_name In Worksheets
sheet_name.Activate
If FilterMode Then
Selection.AutoFilter Field:=1, Criteria1:="~*"
End If
Next
End Sub
================================================
別に設けたフィルターを解除するマクロ↓

Dim W As Worksheet
For Each W In Worksheets
If W.FilterMode = True Then
W.ShowAllData
End If
Next W
End Sub

回答No.1

merlionXX

merlionXXです。
では、こうしてみたらいかがでしょうか？

Dim W As Worksheet
For Each W In Worksheets
W.Activate
If W.AutoFilterMode Then
Selection.AutoFilter Field:=1, Criteria1:="~*"
End If
Next

お礼

merlionXX 様
再度返信頂きまして、誠に有難うございます。
おかげさまで、作動するようになりました。

自分でも編集できるように、VBAの入門サイトを見て色々試してみたのですが、なかなか付け焼刃では出来ないですね。
本でも購入して、一から学ばないとだめですね。

この度は、本当にお世話になりました。
誠にありがとうございました。