Need Help Editing Code

[Frith]

Hello,

Might someone know how to modify the below code such that only
ONE time stamp -- the first -- can be made per cell range, but which allows for subsequent, manual entries? Basically, just need to limit the time stamp to one executuion.

Thanx a lot,
Frith


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D50,F3:F50")) Is Nothing Then
Target.Value = Format(Now, "ttttt")
End If
End Sub

 

[mikerickson]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D50,F3:F50")) Is Nothing Then
    If Target.Value = vbNullString Then
        Target.Value = Format(Now, "ttttt")
    End If
End If
End Sub

 

[Frith]

Thanx!