Private Sub Worksheet_Change(ByVal Target As Range)
'Macro inserts date in Column B for change in Column A
ActiveCell.Select
If ActiveCell.Column = 1 Then 'Limits macro action to column A
If Not Selection Is Nothing Then
Application.Selection.Offset(0, 1).Value = Date
End If
Else
End If
End Sub

Vaya con Dios,
Chuck, CABGx3


"J.P." wrote in message
...
I have two columns: A and B. Column A is a text summary. Column B is a
date
field. Each time I make any change to a cell in column A, I would like
the
corresponding cell in column B to update with today's date, thus showing
when
the most recent change was made. Any help would be appreciated.
--
J.P.