timestamp

[cape]

I am using the following code to insert the timestamp. I need this time
stamp to go into my Table of contents (worksheet) and the timestamp in
cell a5

ActiveCell.Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.NumberFormat = "mm/dd/yy hh:mm:ss"

Thanks in advance

 

[Frank Kabel]

Hi
use something like
with worksheets("contents").range("A5")
..value=now
..numberformat="mm/dd/yy hh:mm:ss"
end with