Hi,

Since you are only interested to get the date when you enter a number try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Or Not IsNumeric(Target)
Then Exit Sub
If Not Intersect(Target, [A:A]) Is Nothing Then
Target.Offset(, 1) = Date
End If
End Sub

If you are only doing this for a single column, here column A:A, then you
don't need to disable events... However if you want this to work for the
entire worksheet then you need to include them.

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"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