How do I prevent saving an excel file if cells are blank?

  • Thread starter Thread starter Guest
  • Start date Start date
Hi Leighann

You can use the before save event

Copy this event in the Thisworkbook module
Change the sheet name and ranges in this line
Set myrange = Worksheets("Sheet1").Range("A1:A6,C10,D12,G1:G3")

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range("A1:A6,C10,D12,G1:G3")
If Application.WorksheetFunction.CountA(myrange) < _
myrange.Cells.Count Then
MsgBox "fill in all cells"
Cancel = True
End If
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How do I get Rid of the Circumflex Accent (Caret) 2
# Value error and how to ignore blank cells 2
How to Keep Excel Sheet Formatting On a CSV Sheet with vba 1
linked workbook cell returns 0 is source workbook cell is blank? 4
Excel Average dates help 0
Trying to get a blank cell presented if B26=0 4
Excel Concatenate with line breaks but ignore blank cells 3
If blank cell, copy information from cell above 5

Back
Top