Update timestamp only first time

Hello, I need to update timestamp value only first time when insert value into another cell and not in next updates.

This is the code that I'm using now:

Sub Worksheet_Change(ByVal Target As Range)
   
   If Target.Column = 3 Then
   
        Application.EnableEvents = False
        Dim strTime As String
        
        strTime = Format(Now, "HH:nn:ss") & "." & Right(Format(Timer, "#0.000"), 3)
        
        Cells(Target.Row, 20).Value = Date & " " & strTime
        
        Application.EnableEvents = True
        
   End If
     
End Sub

Option Explicit

Sub Worksheet_Change(ByVal Target As Range)
   
   If Target.Column = 3 Then
   
        Application.EnableEvents = False
        Dim strTime As String
        
        strTime = Format(Now, "HH:nn:ss") & "." & Right(Format(Timer, "#0.000"), 3)
        
        With Cells(Target.Row, 20)
            If .Value = "" Then
                .Value = Date & " " & strTime
            End If
        End With
        
        Application.EnableEvents = True
        
   End If
     
End Sub

Regards, TMS

You're welcome.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.