Comment Boxes

[John M]

Hello,

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.

John

 

[Eddy]

Why don't you extract the comments to the exact location of a new worksheet
and then print it out?

 

[Debra Dalgleish]

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

 

[Debra Dalgleish]

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