I can only help with the VB Code side of things here
If you put this code in the Worksheet that you are working on
(right click the tab and choose View code)
select worksheet from the dropdown list on the left and Change from th
one on the right
then input something like this

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("A" & Target.Row)
If .Value = "" Then
.Formula = CDate(Now)
End If
End With
End Sub

this assumes that the date goes into column A

HTH

Davi

--
Message posted from http://www.ExcelForum.com