I need to add a date to a cell but keep existing content

[TedPennell]

Hello
First time posting so be gentle..

I am using this code to track changes to cell H.
Each time the cell is changed I would like to see the date in the next column.
Currently it will only display the last change,
What do i need to add to the code so the dates are stacked in the one cell.

So if changes are made to cell H a date is added to cell I
If another change is made to cell H a date is added beneath the first date still in Cell I.

#
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("h:h")) Is Nothing Then
Target.Offset(0, 1) = Date
End If
End Sub
#
Many Thanks

[estratosphere]

TedPennell,

Firstly welcome to the forum!
Just a quick note on your code - please ensure you wrap it in code tags (as per forum rules) - makes it easier to view code and maintains VBA formatting

On the point of your issue, this code works:

Please Login or Register  to view this content.

[TedPennell]

Excellent work, thank you for that.
I have now seen the correct # option to use.

[estratosphere]

No problem - glad I could help