Comments disappeared

[Nightshade]

Several of my comments seem to be broken. When I mouse over them, it only
shows the arrow with a line going to nothing. When I click 'edit comment'
nothing happens. It is not hidden, and it does not show up when I set the
sheet to show all comments. I know it is still there, because when I mouse
over it, it says "Comments by Frank". Any ideas on what happened, or how to
fix it?

 

[Argy - Arcasoft]

I am afraid the comments might have been removed,; I guess in this case by
accident. Only choice here, you have to do it all over again.

Argy

 

[Gary''s Student]

Running this small macro will adjust your comments. At least then you will
be able to re-size them, re-position them and edit them:

Sub FixComments()
Dim r As Range, c As Comment
For Each c In ActiveSheet.Comments
Set r = Range(c.Parent.Address)
topp = r.Offset(1, 1).Top
leftt = r.Offset(1, 1).Left
With r
.Comment.Visible = True
.Comment.Shape.Select
Selection.ShapeRange.Top = topp
Selection.ShapeRange.Left = leftt
Selection.ShapeRange.Width = 50
Selection.ShapeRange.Height = 50
End With
Next
End Sub