This would do the same thing but is a little simpler....
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
MsgBox ("bingo")
Application.EnableEvents = True
End Sub
The Application.EnableEvents doesn't do anything in this instance, but stops the macro feeding back...