what about

ActiveCell.Value = activecell.value & " " & Format(Date)

(application is not needed!)

hth Carlo

"veeraan" wrote:

Hi there....Need help!!

I am writing some code whereby once I know which cell is the current
ActiveCell, I have to add a timestamp value to the cell which I am getting as
follows.

Application.ActiveCell.Value = Format(Date)

Now my trouble is that this statement is overwriting the existing
information in the cell. I want my code to add timestamp either at the top or
bottom of existing text in the cell without it deleting any current
contents...

So if A6 = "Hello World" before.....

I want it to look like this after code...

A6= 25/10/2007 "Hello World" or "Hello World " 25/10/2007

Hope you can help...Let me know if you need more information...

Regards
Veeraan