Excel VBAのAutoFilterの解除でエラー

Question

Excel VBAで、AutoFilterを解除しようとするとエラーが出て困っています。なにかご存知のことがあれば教えていただけますでしょうか。

###前提・実現したいこと
下のような表において、C1の値「編集部」を含む行をAutoFilterで抽出し、その後AutoFilterを解除する、という処理を試しています。

###発生している問題・エラーメッセージ
AutoFilterでの抽出は上手くいくのですが、その後AutoFilterを解除しようとすると、以下のようなメッセージが出て解除できません。

実行時エラー'1004':
オブジェクト'AutoFilter'のメソッド'Range'が失敗しました。

###該当のソースコード

Sub オートフィルターによる抽出()
  Dim myName As String
  myName = Range("c1").Value
  If myName = "" Then
    MsgBox "担任を入力してください。"
  Else
    Range("B3").AutoFilter Field:=2, Criteria1:=myName
  End If
End Sub

Sub オートフィルターの解除()
  If ActiveSheet.AutoFilterMode = True Then
    Range("B3").AutoFilter
  End If
End Sub

###補足情報(言語/FW/ツール等のバージョンなど)
Excel 2011 for Mac

Answer 1

Range("B3").AutoFilter ではなく ActiveSheet.AutoFilterMode = False で解除されませんか？
ただ、ご提示のコードのままでも、Excel 2013 / Windows 10 では問題なく動作したので、違う理由かもしれませんが。

Comments

[minato_hy]

お書きの方法で解除されました！ ありがとうございます！
それにしても、調べたサイトではどこも「Range().AutoFilterをもう一度実行すると解除される」とあったのですが、これはExcel 2013からの仕様ということなんでしょうかね……？ 私はExcel 2011なので

[q1701]

解決されて、よかったです。
手元に Excel 2007 (Windows 10) もあるので試してみましたが、こちらも同様に動作しました。
Windows と Mac で動きが違うのかもしれませんね。