Comment Boxes

  • Thread starter Thread starter John M
  • Start date Start date
J

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
 
Why don't you extract the comments to the exact location of a new worksheet
and then print it out?
 
The following code will align all comment boxes to the right of the cell
which contains the comment.
 
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
 
Back
Top