Add timestamp to comment upon comment creation (Excel 2007)

Is there anyway to timestamp a comment after the user inputs it?

For example he right clicks on a cell and chooses insert comment. Types in whatever.. and clicks somewhere else effectively saving the comment. Strange behavior that. You would think they could hit enter or something to leave the comment input box. This is probably the real issue. There is no trappable event here to break into code so I can add a timestamp to the comment.

Also, if name is appended automatically perhaps there is a setting to append timestamps automatically. I'll look for this.

Thanks,

Julian

Try this , it should add the current date (In Red) to the end of the Text in the selected cell comment, and also update any existing date.

Sub MG30Jul04
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Com As Object
Dim Ch As Long
Set Com = Target.Comment
If Not Com Is Nothing Then
    With Target.Comment.Shape.TextFrame
        If .Characters(Len(Com.Text) - 4, 1).Font.ColorIndex = 3 Then
         .Characters(Len(Com.Text) - 13, 13).Text = vbNullString
        End If
        With .Characters(Len(Com.Text), 14)
            .Text = Space(4) & Date
            .Font.Bold = True
            .Font.Italic = True
            .Font.ColorIndex = 3
    End With
 End With
End If
End Sub

Regards Mick