set rng = Range("A1:A10")
if application.Countblank(rng) 0 then
msgbox "Contains blanks"
End if

--
Regards,
Tom Ogilvy

"coffee11" wrote in message
...
Hi,

My spreadsheet has a space allows a user to input information.
I want to know codes to check whether the input space includes a blank or
not.
Also, if there is a blank cell, I want to show a dialog to display
message.
Does anybody know how to do it?

Thanks for your help!