In the Thisworkbook module: ** Sample Data Only** Change Rng addresses to suit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Set Rng = Range("B8,B11,E11,B14,E14")
For Each c In Rng
If c = "" Then MsgBox "Please Fill In Cell " & c.Address & " before
Closing."
If c = "" Then Cancel = True
Next c

End Su

"JoeP" wrote:

I am creating an excel spreadsheet different departments will be using and
want to ensure they enter information in certain cells. Is there a way I can
create a rule or validation to make a message come up if they don't fill in
a particular cell?