On Jun 26, 2:00 pm, JMay wrote:
Paste the below code into the Sheet module of interest:
Also, Click Column A's Column Header -- And Format the entire
Column as a Date...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(, -1).Value = Date
End If
End Sub



"Dave K" wrote:

Hello, I am trying to create a macro (or perhaps there is a simple
function) that will automatically fill the current date in the left
column (Column A) when I enter any text or data in a cell in Column
B.

So for example, I want cell A4 to read 06/26/07 if I enter anything in
cell B4. And then in two weeks, if I add new info in cell B5, I want
cell A5 to read the date of that entry.

Anyone know of a good formula or macro that would do this?

Thanks in advance for any suggestions you can provide.- Hide quoted text -

- Show quoted text -

How about referencing more than one field? How would you change the
target and make the offset a fixed or named column?

If Target.Column = 2, Target.Column=3, Target Column=4..... Then

Target.Offset(, -1).Value = Date 'reference named column??

Dennis