Date entry in a cell in that row

[Phil H]

Working range: A2:AT21




If an entry is made in any cell in a row, put today’s date in cell AT.


For example: for row 15, if an entry is madein cell AK15, put today’s date in AT15. If a date already exists, overwrite with today's date.

[jeffreybrown]

Hi Phil,

Give this a try on your sheet level code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:AS21")) Is Nothing Then
        Cells(Target.Row, 46).Value = Format(Now, "mm/dd/yyyy")
    End If
End Sub

Since you want this date in column AT, I changed the target range to only go thru AS

[Phil H]

Jeff, Thanks for your help - appreciate your time. R/Phil