Barb, see if this will work for you, put in the this workbook code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Cel As Range
'change your range here
For Each Cel In [b1:b6]
If IsEmpty(Cel) Then
Cel.Select
Cancel = True
MsgBox "Missing data", vbExclamation, "Can't Print Without All Data"
Exit Sub
End If
Next Cel

End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **



"Barb" wrote in message
...
Is it possible to prohibit the printing of a form until
all required fields contain values?