that works but the date changes every day, i need it to stay the date the
number was entered

"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste the code below in. It
currently works on data entered in column A so change to suit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 1) = Format(Now, "dd/mmm/yyyy")
Application.EnableEvents = True
End If
End Sub

Mike

"Richard" wrote:

Hi
when i enter a number into a cell i want the cell next to it to display the
date the number was entered