Username Stamp

[ceiker]

Is there a way to stamp the username into a cell at the end of the row if a change is made to the date in that row? Look to track changes of a shared worksheet without having to use the "Show Changes" tool and scroll through to find the user that changed the cell.

Thank you

[Bob Phillips]

Simple enough, use the worksheet change event

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo wsc_exit
    
    Application.EnableEvents = False


    With Target
    
        Me.Cells(.Row, Me.Columns.Count).End(xlToLeft).Offset(0, 1).Value = Environ("Username")
    End With


wsc_exit:
    Application.EnableEvents = True
End Sub

[ceiker]

Bob,

Thank you