If you want to leave unchanged dates already in column A, use this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row 1 And IsEmpty(Range("A" &
Target.Row)) Then
Range("A" & Target.Row) = Date
End If
End Sub

Regards,
Stefi

€žJaydubs€� ezt Ã*rta:

Hello Stefi,

Great this works.

However, I did see that if I change the date and later change the text, the
date is changed back to the original. Is this normal?? I might want to change
the text, but not the date !!

But thanks, this has helped me a lot!! Will save me a lot of work in the
future !!

-
** Fool on the hill **


"Stefi" wrote:

Apply this event macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row 1 Then
Range("A" & Target.Row) = Date
End If
End Sub

Post if you need help to install it!

Regards,
Stefi


€žJaydubs€� ezt Ã*rta:

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


--
** Fool on the hill **