Write or save username if cell has been changed

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Changed As Range, Cell As Range

Set Changed = Intersect(Target, Columns("B"))
If Not Changed Is Nothing Then
Application.EnableEvents = False
For Each Cell In Changed
Cell.Offset(, 1).Value = Environ("Username")
Next Cell
Application.EnableEvents = True
End If
End Sub