Workbook_SheetCalculate executes 5 times...

I'm trying to get the event function Workbook_SheetCalculate to work properly, and I'm having trouble. When it runs, it executes 5 times in a row, but it's not caught in an infinite loop. I have no idea why it executes such a specific number of times. Can anyone give me some clues?

Action that occurs:
=============
If a cell is changed, the Workbook_SheetCalculate macro runs 5 times.

Code:
====
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
'The line below makes no difference in execution of this macro
Application.EnableEvents = False

MsgBox "This is Workbook_SheetCalculate"
'My_Module

'The line below makes no difference in execution of this macro
Application.EnableEvents = True
End Sub