I have input the following code to get a time-date stamp in column B when
anything is entered in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A3:A2000], Target) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 2) = Now
Application.EnableEvents = True
End If
End Sub

This code works while I have the document open, but when I close it and
reopen it, it stops working. Sometimes it says the security is set at high
and that is causing problems...I have tried some of the suggestions in that
error box, but it doesn't help. Any suggestions? Ultimately I want to load
this file onto a Palm Pilot for use in the field.