Asking user to please enter all mandatory filed

[paulked]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Range("a1") = "" Or Range("b1") = "" Or Range("c1") = "" Or _
       Range("d1") = "" Or Range("e1") = "" Or Range("f1") = "" Then
    MsgBox "Please enter all mandatory fields!"
    Cancel = True
    End If
End Sub