VBA code for a message box on exit depends on a cell value

Hi
I have an excel form for reporting the result of a test. I used a formula to determine if the test is PASS or FAIL.
I want to use a VBA code to warn the user on exit if the result is Fail and asked to review if necessary.
I tried some codes(like below) but did not work and also data validation is not working too!
[VBA]Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Sheets("CSG 130").Range("I$64").Value2 <> "PASS" Then
MsgBox "Analysis Outcome is Failed!!!!"
Cancel = True
End If
End Sub[/VBA]

Any suggestion, please?

Thanks, Carim
No, did not work!
I tried data Validation too and not working either.

Quote from Carim

As I said earlier ... do not hesitate to attach your workbook with your next message ... :wink:

Thanks
I attached the file for your review.
Appreciate your time :wink:

Quote from ashu1990

See if this helps.

Code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If UCase(ThisWorkbook.Sheets("CSG 130").Range("I$64").Value2) <> "PASS" Then
MsgBox "Analysis Outcome is Failed!!!!"
Cancel = True
End If
End Sub

Thank you fro your time.
Unfortunately, didn't work :?

Quote from Carim

Hello,

Thanks for your file ...

Attached is your Version 2

Hope this will help

Display More

Thanks Carim
I couldn't see any new code on the file? Maybe it not saved because on read-only?

Quote from Carim

Hello,

First Question : Is it working or not ...???

The macro is as follows :

Code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Sheets("CSG 130").Range("I64").Value <> "PASS" Then
MsgBox "Analysis Outcome is Failed!!!!"
Cancel = True
Else
MsgBox "Well Done !!!!"
End If
End Sub

AND ... more importantly ... it is stored in the Module ... ThisWorbook ...

HTH

Display More

Hi Carim
Thank you, Yes this code worked, but I can't close the workbook now!?
Have you done any modification? This code is not working on another form as I have 50 forms to be set!