Thanks to both of you for your input!

-----Original Message-----
Hi

I am sure there is a better way to do this, but just
modifying your code a
little like this using columns D and E seems to work ok.


Sheets("Pacc AD").Select
Range("D1").Select

Dim Value1
Dim check As Integer

Do Until ActiveCell = ""

If ActiveCell.Offset(0, 1) = "" Then

check = MsgBox("Missing date in Column E!", vbOKCancel +
vbCritical, "Please
check your dates!")
If check = vbCancel Then Exit Sub

tryagain:

Value1 = InputBox("Enter the missing date using the
format....
DD/MM/YYYY")

If Value1 = "" Then
MsgBox "You must enter a date like.... 29/05/2004"
GoTo tryagain
End If

ActiveCell.Offset(0, 1).Value = Value1


End If

ActiveCell.Offset(1, 0).Select
Loop
End Sub


HTH

Ken


.