Hi,

Found an old "stamp" ....

Sub MacroStamp()
Dim Stamp As String
Dim Str As String
Str = Format(Time, "hh:mm:ss AMPM")
Stamp = Format(Date, "Long Date") & " at " & Str
Selection.AddComment
Selection.Comment.Text Text:=Stamp
Selection.Select
End Sub

HTH
Cheers
Carim