Display username in a shared document

[DRWesterhof]

Hi,

I've been searching for a while now how to solve my problem, but I can't find a solution.

I have a shared document, altered by several people at the same time. When someone changes cell B2, I want their windowsusername displayed in cell C2. I already made the function =Username() in VBA. It works just fine with
=IF(B2="","",Username())
However, I want it to remain the usename of the person who changed B2. Now, when people are working in the document at the same time (and for example change B3), it changes to the user who saved it last.

 

[ParamRay]

Hello, if you must use VBA code, I have provided it below. (This code should go in the code module for that specific sheet.)

However, it should be noted that, when using a shared workbook, you can enable the 'track changes' feature, which essentially does what you're asking for, straight out of the box.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Me.Range("B2")) Is Nothing Then
    Me.Range("C2").Value = Environ("UserName")
  End If
End Sub