time stamp vba to date stamp

[Vtookup]

Hi. I need help to place date stamp (S3) if next cell (T3) is not blank. then continue down the column.
Attached is a functional time stamp vba. i follow this vba to get a date stamp 07/04/18. no Date was registered.
I replaced line 3's Range & line 5's range and time format to "Date"
i have vba for column "T". Column "S" is my problem.
any help is much appreciated. Thank you.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("T3:T50")) Is Nothing Then
If Target.Count = 1 Then _
Range("S" & Target.Row) = Date
End If
Application.EnableEvents = True
End Sub

 

[shg]

You're welcome.