Oh Wow!

Sorry but this has gone right over my head I'm sorry to say. Is this
something that can be simplified so it becomes a formula entered into the
cell??

Thanks John

"Gary''s Student" wrote:

Let's use cell B9 as an example:

In worksheet code enter the following:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B9"), Target) Is Nothing Then
If IsEmpty(Target) Then
Target.Value = Now()
End If
End If
End Sub


If you tab into B9 and it is empty, the time will automatically be entered.

If it is not empty, nothing changes.


REMEMBER: worksheet code, not a standard module.
--
Gary''s Student - gsnu200719