I have taken this code from this forum (Thank you Kaper) and it does what I need apart from the fact that when the cell value changes it is the result of a formula calculation and the vba does not pick it up. If I change the appropriate cell (C3) manually it works fine.
I would very much appreciate some help with this ...
Thanks
Paul
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3")) Is Nothing Then
With Sheets("Archive")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0) = Now
.Cells(.Rows.Count, "A").End(xlUp).Offset(0, 1) = Range("C3")
End With
End If
End Sub
Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer
Bookmarks