Arreter Private Sub Workbook_BeforeClose

Bonjour,
je souhaite pouvoir, verifier la valeur d'une cellule ,avec la fonction "Private Sub Workbook_BeforeClose(Cancel As Boolean)"
si la valeur de la cellule est = "BON" le fichier se sauvegarde et se ferme
si la valeur de la cellule n'est pas = "BON" le fichier ne se sauvegarde pas et ne se ferme pas

voici le bout de programme que j'ai essaye de faire ,qui ne marche pas !!! , si la valeur de la cellule n'est pas = "BON" le fichier se ferme quand meme :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
verif = Range("H1")
If verif = ("BON") Then
ActiveWorkbook.Save
Else
Exit Sub
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
verif = ("BON")
End Sub

je tourne en rond depuis hier , merci pour votre aide
didou