Is it possible to automatically add the time / date to a comment box in Excel?

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc

Ahmed,
If you just want the current date/time in a cell, enter: = now() into the
cell and format the cell as mm/dd/yyyy h:mm

"Ahmed Madkour" wrote:

Is it possible to automatically add the time / date to a comment box in Excel?

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc

This code will append the current date to existing comments in the comment
box of the selected cell.

Sub DateToCommentBox()
ActiveCell.Select
If Not Selection.Comment Is Nothing Then
Selection.Comment.Visible = True
Selection.Comment.Text Text:=ActiveCell.Comment.Text & Chr(10) & " " &
Date & Chr(10)
Selection.Comment.Visible = False
End If
End Sub

If copying, watch out for word-wrap

Vaya con Dios,
Chuck, CABGx3



"Ahmed Madkour" wrote:

Is it possible to automatically add the time / date to a comment box in Excel?

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc