Last editted User Name

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
    Target.Offset(, 1).Value = Application.UserName
End If

End Sub

Hi, Liju ,

maybe use

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngCell As Range

If Not Intersect(Target, Range("A:A")) Is Nothing Then
  Application.EnableEvents = False
  For Each rngCell In Target
    Cells(rngCell.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Environ$("USERNAME")
  Next rngCell
  Application.EnableEvents = True
End If

End Sub

Even users who do not know very much about Office may change the Application.Username at their will...

Ciao,
Holger