Recording time for dynamically changing cell values

[DBY]

Hello
Using the worksheet change event for A1:A5:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.CountLarge > 1 Then
    Exit Sub
ElseIf Not Intersect(Target, Range("A1:A5")) Is Nothing Then
    Target.Offset(0, 1) = Now
End If

End Sub

DBY