ccarmock

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in a cell in Col B
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 2 Then
n = Target.Row
If Excel.Range("B" & n).Value < "" Then
Excel.Range("A" & n).Value = Now
End If
End If
enditall:
Application.EnableEvents = True
End Sub

This is sheet event code.

Right-click on the sheet tab and "View Code".

Copy/paste the code into that module. As you enter data in column B, the date
will be placed in A on same row.


Gord Dibben Excel MVP

On Thu, 29 Sep 2005 14:38:30 -0500, ccarmock
wrote:


Yes I see what you mean - so every time I open the sheet the dates are
updated.....

If the first time it triggers it coudl replace the formula with the
actual value that woudl achieve what I need....