Hi Jim,
Thanks for the codes. They works.
I wonder if I could check for mandatiory entry of multiple cells in E6, J8,
N8, Q6, Q7, Q8, and Cell R7 must be left blank before allowing the working
sheet to save.
I prefer to have the prompt message for the mandatory cells.
Here are my codes.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Mandatory fill in Cells before allow to save
Dim cell As Range
For Each cell In Sheets("Account Profile").Range("E6,J8,N8,Q6,Q7,Q8")
If IsEmpty(cell.Value) Then
MsgBox "You must fill in cell " & cell.Address & " of the Account
Profile Worksheet."
Application.Goto cell
Cancel = True
Exit For
End If
Next cell
End Sub
Many thanks.
Igbert