If the range A1:F1 and the cell H1 are not empty, then all range cells must be not em

try with this..

Sub tst()
If Evaluate("OR(ISBLANK(A1:F1),ISBLANK(H1))") Then
    MsgBox "One of the cell is empty'"
Else
    MsgBox "All are filled"
End If
End Sub

Cancel is a part of many eventtrigger macro..

What Trigger you are using..

Hello loroverde,

Do it this way:

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

With Sheet1
If Evaluate("OR(ISBLANK(A1:F1),ISBLANK(H1))") Then
Cancel = True
    MsgBox "One or all of the cells are empty. Saving has been Cancelled"
Else
Cancel = False
    MsgBox "All Cells are filled, WorkBook will now be Saved", vbOKOnly, ("Contol Check")
    
End If
End With
End Sub