使用VBA清除Excel AutoFilter

Question

I am using this VBA code to refresh my entire workbook at specific time intervals. ( thanks to this thread )

As you can see, it is currently set to refresh every 60 minutes.

Public RunWhen As Double
Public Const cRunIntervalMinutes = 60
Public Const cRunWhat = "Workbook_RefreshAll"

Sub StartTimer()
    RunWhen = Now + TimeSerial(0, cRunIntervalMinutes, 0)
    Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
         schedule:=True
End Sub

Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub

Sub Workbook_RefreshAll()
    Application.CalculateFullRebuild
    ActiveWorkbook.RefreshAll
    Call StartTimer
End Sub

The code works great, however there's one thing I wish it could also do:

1. Any time the sheet is opened, and/or
2. Any time this VBA code executes the sheet refresh process

I would like the AutoFilter to be "Cleared" (not disabled or turned off) as in the screen grab below:

AutoFilter Clear

Thanks in advance for any assistance.

Cheers

Answer 1

This should do the trick. You may of course do it for one Sheet only, if you wish.

Sub Workbook_RefreshAll()
Dim sh As Worksheet
    Application.CalculateFullRebuild
    ActiveWorkbook.RefreshAll
    For Each sh In ActiveWorkbook.Worksheets
        If Not (sh.AutoFilter Is Nothing) Then sh.AutoFilter.ShowAllData
    Next sh
    Call StartTimer
End Sub