add date to the column during update in worksheet

[klpw]

Hi all,

I've had a database worksheet and I was wondering how to automatically add date to first column when there is new column or new row added by user?


Cheers

[SamT]

Cells(RowNumber, ColumnNumber) = Date

[klpw]

Hi SamT,

In my case, when I add anything in column C, it will show "Date" in Column D, may I know how could I make the "Date" show in Column B instead?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("C2:C100")) Is Nothing Then

            With Target(1, -2)

                .Value = "Date"

                .EntireColumn.AutoFit

            End With

        End If

[klpw]

Sorry, the code With Target line should be #With Target(1, 2)#