How about
Sub checkdata()
For Each c In Range("a11:a14")
If c = "" Then c.Value = InputBox("Fill in " & c.Address)
Next
End Sub

--
Don Guillett
SalesAid Software

"Herb" wrote in message
...
Hi

I need to check that all data in a row is filled in. For
example, if there is an entry in D1, there must be entries
in A1, B1, and C1. It will be up to the user to fill in
the required data for A1, B1, and C1.

I plan to run this as a macro that will check that all
data is entered, and display a message back to the user
that they need to update some cells.


......thanks in advance.......Herb