useing this it does not shade all blank cells havent been able to figure what
is missing also it does not clear contents in range of blanks. Object I am
trying for notify user about blank cells. User has a way around entry to
create blanks cannot stop there. Best I know.
Thanks Much

Sub blanks()
' blanks Macro
' Macro recorded 6/28/2007 by Curtiss A. Greer
Worksheets("Data").Activate
Range("d5:m60").Select
Selection.specialcells(xlCellTypeBlanks).Select
Selection.ClearContents
MsgBox "Empty cells must be filled"
End Sub