insert current date in cell if specific text is entered

Hi Guys

im having a problem writing this code...

i want it to do this..:

when a user types "dd" in a cell, the macro should insert the current date. and if the user types a date, this date will stay in the cell

any ideas?

here is the code a have tried to write

Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
       Set KeyCells = Range("B19")
    
    Dim newval As Variant
    
    newval = Range("K2").Value
    
    If Application.Intersect(KeyCells, Range(Target.Address)).Value = "dd" Then

    Range("B19").Value = newval
               
       End If
    
End Sub

Hello

Have a read of Rule 1: Use concise, accurate thread titles.

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(I have added them for you today. Please read all Forum Rules and comply in the future.)

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)