There is no connection between Data Validation and saving a workbook. You'
have to use the workbook's BeforeSave event. This goes in the ThosWorkbook
module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Sheet1.Range("A1").Value = "" Then
Cancel = True
MsgBox "Please complete cell A1"
End If
End Sub


--
Jim
"max power" wrote in message
...
|i need an excel sheet to prompt for entry so that it cannot be left blank
| before saving or sending.
|
| i thought it would be done through data vaalidation but i cannot work it
out