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 = Format(Now, "dd mmm yyyy hh:mm")
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.


Gord Dibben MS Excel MVP

On Tue, 27 Jun 2006 01:31:02 -0700, Jaydubs
wrote:

I have tw columns
Column A = Date
Column B = Questions

In column A I have a formula =IF(B2<"";TODAY();""). This means, that if I
type a letter in column B and press enter the date of today is automatically
filled in in Column A.

With the usage of Today() the date will change tomorrow, to tomorrow's date.
I don't want it to change. So what should happen is:

I type in a letter (or sentence or whatever) in column B today (which is 27
june 2006) is automatically entered. Tomorrow I want to check the question
and the date in front of it remains 27 june 2006.

Does this make sense?

Please help me......Thanx