『オートフィルターについて』（日向夏）

 常々、勉強させて頂いています。ご教示して下さる方々に
 お礼申し上げます。
 現在、業務用のシートに印刷マクロを組んでいます。
 その一連の中で、シートにオートフィルターが作動している
 場合と作動してない時があります。その状態を判別してする、
 マクロはあるのでしょうか?
 現在、マクロは、印刷→オートフィルター解除→セルA1選択
 としていますが、オートフィルター状態でない場合にエラー
 となるので困っております。ご教示お願いします。
----
 こんなことかしら？

  With Worksheets("指定シート")
 　　If .FilterMode Then   'フィルタ モードがON だったら
 　　　　.AutoFilterMode = False  'オートフィルタを解除する
 　　End If
     '処理
  End With

  (kanabun)
----

 kanabunさんへ
 
 早々に有難うございました。解決しました。
 また、宜しくお願いします。
　　　　　　　　　　　　　　　(日向夏)

----
 kanabunさん　こんにちは

 ＞If .FilterMode Then   'フィルタ モードがON だったら
 この真偽判定は必要ないように思ったのですが、、、

 ヘルプでは、
 ＞Worksheet.AutoFilterMode プロパティ
 ＞FilterMode プロパティの値に依存しません。　
 ＞True の場合、下向き矢印を表示します。False の場合、下向き矢印を削除します。
 ＞ただし、このプロパティを True に設定することはできません。

 （半平太）
----
 半平太 さん、ご指摘ありがとうございます。

 おっしゃる通りですね。
 
 ＞　　.AutoFilterMode = False  'オートフィルタを解除する
 
 だけで、現在のフィルタ状態にかかわらず OFF にできました。
 
 また教えてください  (kanabun)