Excel (Office 365) - Time Stamp on Comments

[Dr Bunsen Honeydew]

Hi,

I am using Excel on MS Office 365.

I have created a workbook to provide updates on Policy statuses to colleagues across my company. Some of the updates are quite long, so to keep the workbook tidy and the row heights consistent, I have added the updates to cells using the 'comment' function.

This has worked well, but I have one issue that I'm struggling to resolve. The automated time and date stamp applied at the bottom of each comment, which updates each time the comment is changed, is confusing users.

If anyone knows of a way to hide the automated time and date stamp from the comments, it will be a huge help.

Thanks in advance.

[Pepe Le Mokko]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however it has been brought to our attention that the same query seems to have been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important.

As you are new I will add it for you https://www.mrexcel.com/board/thread...stamp.1172881/

[KOKOSEK]

Hmm, I think that is not possible to hide date in this new comments type.
There is also (I think) not possible to change date of comment or replies.
BUT if dates are confused maybe if you re-date all comments and replies for current date/time will be less confused?

It get data from particular comment, add data into comment in cell A1, delete original, read data from comment in A1 and put it back into original cell, delete from A1.
Then automatically everything in comment in original cell have current date/time (or should be, I was not tested too much).

Sub ReDateComments()
Dim R As Range
Dim tmpText As String
Set R = Range("A2:G13")   'range to check about comments

For Each R In R.Cells
        If Not R.CommentThreaded Is Nothing Then
            Cells(1, 1).AddCommentThreaded (R.CommentThreaded.text)
            For Each OneReply In R.CommentThreaded.Replies
                With OneReply
                    Cells(1, 1).CommentThreaded.AddReply (.text)
                End With
            Next OneReply
        R.CommentThreaded.Delete
        If Not Cells(1, 1).CommentThreaded Is Nothing Then
            R.AddCommentThreaded (Cells(1, 1).CommentThreaded.text)
            For Each OneReply In Cells(1, 1).CommentThreaded.Replies
                With OneReply
                    R.CommentThreaded.AddReply (.text)
                End With
            Next OneReply
        End If
        Cells(1, 1).CommentThreaded.Delete
        End If
Next R
End Sub