Oops! Somehow, the code fell out of the message on its way to the server:

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


Debra Dalgleish wrote:
The following code will align all comment boxes to the right of the cell
which contains the comment.

John M wrote:

I have numerous comment boxes in an Excel spreadsheet. I want to
print the comment boxes, but when I select the option to show the
comments on the sheet, they have moved quite a distance from the cell
(I have added a lot of columns). Is there a way to quickly re-set the
comments to appear close to the cell they are in? If I have to
manually drag and move them it will take a long time. Any help is
much appreciated. Thanks.




--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html