That worked the first time, but then I waited 1 minute, changed the value to
"n" and the date/time stayed the same. How can we modify this code to
override the value that was returned the last time the cell was changed to
"y"?

Thanks,
IP

"Gary''s Student" wrote:

Use this instead:

Private Sub Worksheet_Change(ByVal Target As Range)
Set CloseLog = Worksheets("Administrator").Range("C13")
Set checkpoint = Worksheets("Administrator").Range("C16")
If Intersect(Target, CloseLog) Is Nothing Then Exit Sub
If CloseLog.Value < "Y" Then Exit Sub
If checkpoint.Value < "" Then Exit Sub
Application.EnableEvents = False
checkpoint.Value = Now
checkpoint.NumberFormat = "mm/dd/yyyy h:mm AM/PM"
Application.EnableEvents = True
End Sub

--
Gary''s Student - gsnu200832


"iperlovsky" wrote:

I am trying to do something relatively simple using VBA but the code I wrote
is not responding. I am trying to have cell "C16" record or 'log' the date
(and the time if anyone knows how to do this) that cell "C13" is changed to
"Y". Here is my code:

Private Sub Workbook_Open()
CloseLog = Worksheets("Administrator").Cells("C13")
If CloseLog = Y Then
With Worksheets("Administrator").Cells("C16")
.Value = Date
.NumberFormat = "mm/dd/yyyy h:mm AM/PM"
End With
End If
End Sub

Thanks in advance,
IP