It checks to make sure that each cell is filled in (by counting the number of cells in the expanding range) - notice the mixed absolute and relative references. As you copy it down, it will change appropriately so that all cells will require filling.
If this method does not work, post back.
Last edited by shades; 04-06-04 at 12:48.
old, slow, and confused
but at least I'm inconsistent!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty(Range("A1").Value) Then
MsgBox "Please enter data into cell A1"
The above uses VBA to check that cell A1 isn't empty, every time you try and do something. Anything. It will then show the error message and return you to cell A1 until you putt something in it. You could probably then use Data Validation to make sure the correct value is put in.