VB Code not executing on Calculate?

[andyreloaded]

For some reason, this code is not executing on Calculate... Anyone have any idea why that might be? All it's doing is applying an auto filter.

Private Sub Worksheet_Calculate()
   Application.EnableEvents = False
     Range("F9:F375").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
   Application.EnableEvents = True
End Sub

This is a really cumbersome spreadsheet, and the Calculations take about 20-30 seconds to finish. Would that matter? It used to work flawlessly and all of a sudden now it doesn't execute when the worksheet calculates. The only thing I changed was to expand the amount of lines in the calculation, so that now it takes a bit longer to compute everything on Calculate. Before I made that change it worked, now it doesn't.

Thanks for any insight.

-Andy

EDIT: Added Code tags - Smitty

 

[Smitty]

You may be stuck with events off.

Try:

Sub yada()
  Application.EnableEvents = True
End Sub

To reset it and see if it works.

HTH,

Smitty

 

[andyreloaded]

Viola, it is fixed. Thanks!