Very simply:


Code:
--------------------
Sub FillDateCompleted()
Dim NumRows As Long, x As Long
NumRows = Cells(Rows.Count, "A").End(xlUp).Row
For x = 1 To NumRows
If Range("A" & x) = "Done" And IsEmpty(Range("B" & x)) Then
Range("B" & x) = InputBox("Enter the Date Completed")
End If
Next x
End Sub
--------------------


You can use data validation to ensure a valid date is entered and
format the result on your sheet if you like as well.
You can also have the affected range be highlighted so the user more
clearly knows what job they are entering the completion date for.
You can also add an if statement after the inputbox assignment that
makes sure they entered a date.
But this should get you started

HTH


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=379821