I am trying to put in an event driven time stamp in excel. When data is entered in a cell, the adjacent cell records the current time. This is a sheet for machine operators to keep track of their progress. I use the following code: Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count > 1 Then Exit Sub If Not Intersect(Range("A2:A10"), .Cells) Is Nothing Then Application.EnableEvents = False If IsEmpty(.Value) Then .Offset(0, 1).ClearContents Else With .Offset(0, 1) .NumberFormat = "dd mmm yyyy hh:mm:ss" .Value = Now End With End If Application.EnableEvents = True End If End With End Sub This works good except when I lock the sheet and it is put to use and error occurs. I have been told to make it unlock and relock the sheet but am not sure how or where to put this into code. Can someone help? Or does anyone else have another solution?

Why not a simple data entry program that stores the time when the entry is made? Why does everyone try to do it in a spreadsheet? Besides the operator could go back and change the entry.

Why not just a simple formula. Put it in the adajent cel and format it as Date or Time as require. As soon as something is enter is Cell C11, the date/Time is displayed. =IF(ISBLANK(C11), "",NOW()) You can of course protect and lock the cell so it cannot be interfered with and just allow a certain Range to be editied. Stuart

Thanks, but with this formula, everytime data is entered, the date/time would change to current. I want the date to remain.