Private Sub Worksheet_Change(ByVal Target As Range)
'Macro inserts date in cell to the right of the activecell upon value entry
ActiveCell.Select
If Not Selection Is Nothing Then
Application.Selection.Offset(0, 1).Value = Date
End If
End Sub


Vaya con Dios,
Chuck, CABGx3




"ek10101" wrote:

I would like to set up my spreadsheet so that when I enter text in a certain
cell the date is automatically posted in the next cell over. Any suggestions?