excel - VBA を使用してシート上のすべてのフィルターをクリアすると非常に遅くなる

Question

これが完了するまでに時間がかかる理由がわかりません。奇妙なことに、「ActiveSheet.ShowAllData」の実行に最も時間がかかります。誰でもそれを改善できるものを提案できますか?

Sub ClearAllFilters()
  Application.Calculation = xlManual
  Application.ScreenUpdating = False
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData

For Each OleObj In ActiveSheet.OLEObjects
    If OleObj.progID = "Forms.CheckBox.1" Then
        OleObj.Object = False
    End If
    Next

Sheets("Manhour Summary Current Month").TextBox1.Text = ""
Sheets("Manhour Summary Current Month").TextBox2.Text = ""
Sheets("Manhour Summary Current Month").TextBox3.Text = ""

ActiveSheet.Range("$A$6:$H$1307").AutoFilter Field:=8, Criteria1:="<>0"

     End If
Application.Calculation = xlAutomatic
  Application.ScreenUpdating = True
End Sub

基本的に、すべてのオートフィルターをクリアし、チェックボックスをクリアし、3 つのテキストボックスをクリアしています。これは最大 1000 行のデータのためのものなので、私が思っていたほど過剰ではありません!

ありがとうございました！

---

問題は、大部分のセルに適用された条件付き書式にありました。オートフィルターと条件付き書式設定がこれほどまでに問題であることに驚いています。

大変お世話になりました！頭がだいぶ楽になりました……。