Moving Comments (2000)

Topic

New Reply

I inherited a spreadsheet with dozens of comments that have been dragged far from the cell they refer to, is it possible to write a macro that will restore them all to their default position adjacent to their cell?

Reply | Quote

Replies

The following is a reasonable approximation:

Sub ResetComments()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Shape.Top = cmt.Parent.Top – 8
cmt.Shape.Left = cmt.Parent.Left + cmt.Parent.Width + 11
Next cmt
End Sub

Reply | Quote

Thank you Hans, that workks fine.

Reply | Quote