Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheet1.Range("$A$1") = "" Then
MsgBox "Approval required"
Cancel = True
Sheet1.Range("$A$1").Select
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheet1.Range("$A$1") = "" Then
MsgBox "Approval required"
Cancel = True
Sheet1.Range("$A$1").Select
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Invoice").Range("$F$426") = "" Then
MsgBox "Approval required"
Cancel = True
Sheets("Invoice").Range("$F$426").Select
End If
End Sub