Code from Debra Dalgleish.......


Reset Comments to Original Position
If comments have moved out of position, you can reset them using the following
code:


Sub ResetComments()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Shape.Top = cmt.Parent.Top + 5
cmt.Shape.Left = _
cmt.Parent.Offset(0, 1).Left + 5
Next
End Sub


Gord Dibben Excel MVP

On Fri, 18 Nov 2005 08:15:59 -0800, Franci
wrote:

I want the comments that I post to stay in the same format and with the same
relationship to the cell that I post it in. Now,when I edit an existing file
with comments, the existing comments float all over the file. I would also
like to be able to reset the existing comments back to their original format.