Username to autofill in when changing data on row

Hi,

This is the basic idea...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Target.Column = 1 Then Exit Sub
    If Target = "" Then Exit Sub
    If Target.Offset(0, 1) = "" Then
        Target.Offset(0, 1) = Environ("Username")
    Else
        Target.Offset(0, 2) = Environ("Username")
    End If
End Sub

It will place the username in column B for the first entry in column A and it will place the username in column C if the entry in column A is changed.

Yeah, if you can give me some more info or attach a sample sheet I may be able to help more.... otherwise you can do it like this:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Range("B" & Target.Row) = "" Then
        Range("B" & Target.Row) = Environ("Username")
    Else
        Range("C" & Target.Row) = Environ("Username")
    End If
End Sub