Auto Date Entry & Username Entry

[ExcelRoy]

Hi,

Could I please aks for some help on the following code

It currently places todays date into column B when an entry is made in Column D, this works perfect,

What I would like if possible is to add the username into Column C

here is my code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rInt As Range
    Dim rCell As Range
    Dim tCell As Range

    Set rInt = Intersect(Target, Range("D:D"))
    If Not rInt Is Nothing Then
        For Each rCell In rInt
            Set tCell = rCell.Offset(0, -2)
            If rCell <> "" Then
                If IsEmpty(tCell) Then
                    tCell = Now
                    tCell.NumberFormat = "dd/mm/yyyy"
                End If
            Else
                tCell.ClearContents
            End If
        Next
    End If
End Sub

many thanks for any help

 

[Fluff]

How about

If IsEmpty(tcell) Then
   tcell = Now
   tcell.NumberFormat = "dd/mm/yyyy"
   tcell.Offset(, 1).Value = Environ("Username")
End If

 

[ExcelRoy]

That's perfect, many thanks

 

[Fluff]

You're welcome