VBA MsgBox if cell contains specific text

[RJSIGKITS]

Guys. What am I doing wrong, please?

I need a VBA message box to pop up if and when a specific cell has specific text in it as follows:

Private Sub Worksheet_Calculate()If Worksheets("Home Quote").Range("D33").Value = "Selection Error" Then
    MsgBox "Please make another selection"
End If
End Sub

Cell D33 formula is:
=IF(ISERROR(SUM(E15:E32)),"Selection Error",(SUM(E15:E32)))

When I am in the VBA editor and run the code, it works, but when I close the editor and change values so that the cell says "Selection Error" nothing happens...

 

[Fluff]

Where is that code located?

 

[RJSIGKITS]

Where is that code located?

Ha!
You hit the nail on the head! I had it in 'ThisWorkbook' !

Thank you!!!

 

[Fluff]

You're welcome & thanks for the feedback