Using time stamp to add to text a cell....

Thanks to all you guys that have helped me so far. What i now need to do is use the time stamp that i have previously been given ... but to add to text already in the cell rather than copy over the cells text. The code i am currently using is:

Sub TimeStampOn()
   ActiveSheet.OnEntry = "Stamper"
End Sub

Sub Stamper()
   On Error Resume Next
       ActiveCell.ClearComments
   On Error GoTo 0
   ActiveCell.Range("A1").Value = Date + Time
End Sub

Sub TimeStampOff()
   ActiveSheet.OnEntry = ""
End Sub

What i am trying to achieve is a list of these dates and times in 1 cell... so if i stamp it once... when i stamp the second time it just lists the time below the previous one in the same cell rather than copying over it. Is this possible?

I can't find the OnEntry property at all, even in the object browser; is it still supported?

What are you trying to do?

Hi, If you just use the code line I sent you in a CommanButton on your sheet. Every time you run the code in the same Activecell, it will add the time & date to the cell along with the original cell information.
Mick