Bob, thanks,

I pasted like this in the sheet code but got an error...did I do this wrong?

Sub datemacro()

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ws_exit:

Application.EnableEvents = False

If Not Intersect(Target, Me.Range("H1:H10")) Is Nothing Then

With Target

..Offset(0, 1).Value = Format(Date, "dd mmm yyyy")

End With

End If

ws_exit:

Application.EnableEvents = True


End Sub

"Bob Phillips" wrote in message
...
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("H1:H10")) Is Nothing Then
With Target
.Offset(0, 1).Value = Format(Date, "dd mmm yyyy")
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Mark Renfrow" wrote in message
...
I would like to have the current date appear in a cell when an entry is
made
in either an adjacent cell or any other designated cell. If the cell is
blank then the date cell would be blank. Basically we want to track the
date
of inputs into various cells.

Thanks for any help

Mark