Time & Username Stamp

[mwatson]

This time stamp macro is great but I would also like to record the person who said 'Y' in the same cell as the date stamp '12:00p.m. MWatson' any ideas?
The persons name should come from the Username.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range([P13], Cells(Rows.Count, "p"))) Is Nothing Then 'change your range on this line"
With ActiveSheet
If Target.Value = "Y" Then
Target.Offset(0, 1).Value = Now
Else
If Target.Value = "y" Then
Target.Offset(0, 1).Value = Now
Else
Target.Offset(0, 1).Value = ""
End If
End If
End With
End If

 

[VoG]

Try like this

Target.Offset(0, 1).Value = Now & " " & Environ("username")

 

[mwatson]

works perfectly, thank you