1) Right-click on the sheet-tab where you want this behavior to occur
2) Select VIEW CODE
3) Paste in this macro code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'JBeaucaire (10/7/2009) Add datestamp in column B
Dim cell As Range
Application.EnableEvents = False
For Each cell In Target
If Not Intersect(cell, Range("A:A")) Is Nothing _
And Cells(cell.Row, "B") = "" Then _
Cells(cell.Row, "B") = Date
Next cell
Application.EnableEvents = True
End Sub
4) Close the VBEditor
5) Save your sheet
Try entering values anywhere in column A.
Bookmarks