Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim dProfit As Double
dProfit = ThisWorkbook.Worksheets(1).Range("A1").Value
If dProfit < 500 Or dProfit > 600 Then
MsgBox "Profit must be in the range 500 to 600"
Cancel = True
End If
End Sub