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

[corty_d]

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?