worksheet_calculate not working

[Ricky Nu]

I can't get a simple routine which should bring up a
message box every time the worksheet is calculated:

Private Sub Worksheet_Calculate()
MsgBox "OK"
End Sub

I am able to get this working (triggered every time the
worksheet is changed)

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "OK"
End Sub

Any ideas why the calculate routine is not working?

 

[Jill]

Ricky,

2 things come to my cloudy mind:
First: Are you sure the Calculate event is being
triggered? Check the Options.
Second: Maybe Worksheet_Change using an If statement is
not a bad idea.

 

[J.E. McGimpsey]

Does it fire when you manually force recalculation (i.e., F9)?

Is it in the correct Worksheet code module?

Is Calculation set to Manual in Tools/Options/Calculation?