This is not an uncommon question. Something to do with the cloud or something to that effect.
Here's something I wrote, I just select all the cells and Hit F5=>special cells, and selected comments, then looped through the comments, saved the text, deleted comment and added a comment again with the saved text.
Preliminary Test worked.
Sub FindComments()
Dim r As Range, c As Range
Dim s As String
Set r = Cells.SpecialCells(xlCellTypeComments)
For Each c In r.Cells
s = c.Comment.Text
MsgBox s
c.Comment.Delete
c.AddComment
c.Comment.Text s
c.Comment.Visible = False
Next c
End Sub
Note: you can get rid of the msgbox line, I was just testing it out.
Bookmarks