EnableEvents query

[mkvarious]

hello,

I am trying to write a code that fires when user filters data.
I have tried using Workbook_SheetCalculate in the ThisWorkbook module but although I first have Application.EvanbleEvents=False line then macro still fires twice.
This is really strange as on many threads I have read this is supposed to work?[\color]

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
Set Sh = Sheets("TT_forecast tab")
If Sh.FilterMode = True Then
    MsgBox "tak!"
End If
Application.EnableEvents = True
End Sub
[\code]

 

[Andrew Poulsom]

What's this?

Set Sh = Sheets("TT_forecast tab")

Sh has already been passed to the procedure (the sheet that is being calculated). Maybe you need worksheet level code rather than workbook level code (in the module for 'TT_forecast tab').

 

[mkvarious]

hello Andrew,

this to pass to excel what sheet is to be checked in the procedure as I do not want the same happening for all the sheets/tabs.

Set Sh = Sheets("TT_forecast tab")

My conclusion is that is must have been some macro error yesterday as when I tried the same code today it is working, both in the ThisWorkook and Worksheet level code and in both cases messege box only pops up, once.
thanks for your help, anyway.

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
Set Sh = Sheets("TT_forecast tab")
If Sh.FilterMode = True Then
    MsgBox "tak!"
End If
Application.EnableEvents = True
End Sub