Can't get VBA code to prevent "Save As" from working with this code

[Chassee]

Hi There. I have a code below that should be preventing excel from a user being able to save as without a certain range of cells filled out based on the parameters in my code. I thought it would work just fine, but in testing it will show the message box and then save anyways. Please help. Thanks

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim rngCell As Range

For Each rngCell In Range("J22:K51")
If rngCell.Value > "" And rngCell.Offset(0, -9).Value = "" Then
MsgBox "NEXT SVC DUE missing on Extinguisher Sheet", vbInformation, "Dignity Fire Protection"
Exit Sub
End If
Next

End Sub

 

[JEC]

Did you put this exit for in every part?

 

[JEC]

Use this for testing. The SaveAs GUI is not appearing.
Probably your worksheet passed al the conditions, which leads to showing the SaveAs screen

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If [A1] = "" Then
    MsgBox "test", vbOKOnly, "test"
    Application.Goto [A4]
    Cancel = True
  End If
End Sub

 

[Chassee]

Did you put this exit for in every part?

Hi sorry for delay in responses. Had 2 fire alarm emergencies that took my time away. Yes I did put this in every part