Insert Username Stamp in cell

[Richie_Rich]

Good Afternoon,

I have created a worksheet which will insert the date and time in column B when each row is entered. I would like to now add (stamp) the windows username to the same cell if possible.

This is the current code I run and would sincerely appreciate any help.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
Dim tCell As Range
Set rInt = Intersect(Target, Range("C13:C10000"))
If Not rInt Is Nothing Then
For Each rCell In rInt
Set tCell = rCell.Offset(0, -1)
Set tCell =
If IsEmpty(tCell) Then
ActiveSheet.Unprotect
tCell = Now
tCell.NumberFormat = "dd-mmm-yyyy HH:mm"
End If
ActiveSheet.Protect
Next
End If
End Sub

 

[Joe4]

Welcome to the Board!

You can use Environ("username") to get that.
See: https://www.mrexcel.com/forum/excel-questions/469157-datetime-username-stamp.html

 

[Richie_Rich]

Welcome to the Board!

You can use Environ("username") to get that.
See: https://www.mrexcel.com/forum/excel-questions/469157-datetime-username-stamp.html

Thank you
Worked a charm

 

[Joe4]

You are welcome!