Excel VBA Filter Change event handler

Solution 1:

Yes.

From this article I posted on another forum

1.A dummy WorkSheet is added with a single SUBTOTAL formula in A1 pointing back to the range being filtered on the main sheet.
2. A Worksheet_Calculate() Event is added to the dummy WorkSheet, this Event fires when the SUBTOTAL formula updates when the filter is changed.

'Dummy sheet code
Private Sub Worksheet_Calculate()
'Dummy Sheet has recalculated
    MsgBox "Your list has been filtered"
End Sub

Catering for Manual Calculation

Note that the approach above requires Workbook Calculation to be set to either Automatic (xlCalculationAutomatic in VBA), or Automatic except tables (xlCalculationSemiAutomatic). If Calculation was set to Manual (xlCalculationManual), further coding is necessary to set the WorkBook up so that only the "dummy" WorkSheet would be set to automatically Calculate, all other sheets having Calculation turned off.

There is a rarely used WorkSheet property, EnableCalculation, that can be set via the Visual Basic Editor to True or False. The default setting is obviously True, if it is set to False then the worksheet will not calculate.

The EnableCalculation property is not available to the regular Excel Menu or Ribbon options - so as an aside this can be a useful trick for people who are looking to secure Excel models by deliberately keeping key sheets from recalculating.

  1. Add a Workbook_Open Event to set the EnableCalculation property of all sheets other than "Dummy" to False.
  2. Run the Workbook in Calculation mode.

Solution 2:

This is a more detailed version of this hidden gem answer. Posting here for more visibility.

  • Works even if Calculation is set to Manual. 🔥

  • Assumes you have a chart using the table being filtered as its data source.
    If not, you'll need one. 😛

  1. Create a standard module called ChartSubscriber.
Private ChartEvents As New ChartEvents

Sub SubscribeToChartEvents()
  Set ChartEvents.Chart = Worksheets("Sheet with Chart").ChartObjects("Chart Name").Chart
End Sub
  1. Create a class module called ChartEvents.
Public WithEvents Chart As Chart

Private Sub Chart_Calculate()
    Debug.Print "Table was filtered. Do your worst!"
End Sub
  1. In the ThisWorkbook module subscribe to the event on Workbook_Open.
Private Sub Workbook_Open()
    Call ChartSubscriber.SubscribeToChartEvents
End Sub