Esetleg így:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim WS As Worksheet, Hit As Long, Célérték, i As Integer
Célérték = 1
For Each WS In ThisWorkbook.Worksheets
Hit = Application.WorksheetFunction.CountIf(WS.Range("H4:H70"), Célérték)
If Hit > 0 Then i = MsgBox(WS.Name & " munkalap H4-H70 tartományában a célérték " & Hit & " példányban megtalálható. Biztos hogy bezárja a munkafüzetet?", vbYesNo)
If i = 7 Then Cancel = True
Next

End Sub