dialogue box if cells are not filled

[Guest]

Hi

I have a spreadsheet with about 100 entry spots

I have macros written to save the data, what I would like is a way to stop
the save if not all the data is entered, and come up with a text box warning
"Not all Data entered"

simple answer?

thanks

 

[Dave Peterson]

Maybe you could incorporate something like:

dim myRngToCheck as range

with worksheets("sheet999")
set myrngtocheck = .range("a1:c3,D9,f14")
end with

if myrngtocheck.cells.count = application.countif(myrngtocheck) then
'all filled with something!
else
msgbox "Please fill some cells"
exit sub
end if