Username stamp when cell change

[impresxy]

Hi,
I was and tried many codes to stamp username in column N when column M is changed. None of thoes codes runs when I made change on column N.
Would anyone kindly help?

I put the code in sheet2.

Private Sub Worksheet_Change(ByVal Target As Range)

    If (Target.Column = 13) Then
        Cells(Target.Row, 14).Value = Application.UserName
        
    End If
End Sub

[banaanas]

Have you enabled macros? Have you checked that you actually have a valid username in application.username? Your code works fine on my end.

You can also try this code, it will use windows login username.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Column = 13) Then
        Cells(Target.Row, 14).Value = Environ("UserName")
    End If
End Sub

[impresxy]

Hi,

This is so great. It works now.
THank you very much for your help.

[nigelog]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Intersect(Target, Range("m:m")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Target.Cells.Offset(0, 1).Value = Application.UserName

End Sub

[nigelog]

Thanks for rep