Hi there,

Thanks for your reply, unfortunaltely i'm having trouble with the code
below. I've copied it straight from the mcgimpsey website, changed the
range, but nothings updating.

In column A3 is a formula, which is if column J blank then "" else 1.
This column will always be 1, but still not getting any automated
date?

Any ideas , Cheers,


Code:
--------------------

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Not Intersect(Range("a3:a500"), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = "dd mmm yyyy hh:mm:ss"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub

--------------------


--
harpscardiff
------------------------------------------------------------------------
harpscardiff's Profile: http://www.excelforum.com/member.php...o&userid=25960
View this thread: http://www.excelforum.com/showthread...hreadid=500562