Comments box resize to a line

[icecurtain]

All the comments boxes have resized to a line with an arrow pointing to the cell how to I get the comment boxes to resize so the text is visable again.

I think this was due to a column resizing error.

I am using excel 2003

 

[icecurtain]

Ok now I have resized the boxes using this below.
But the boxes are all over the place with arrows all over the screen and spreadsheet
how do I get them to go to the right of the active cell .

Sub Comments_AutoSize() Dim MyComments As Comme.nt Dim lArea As Long For Each MyComments In ActiveSheet.Comments With MyComments .Shape.TextFrame.AutoSize = True If .Shape.Width > 300 Then lArea = .Shape.Width * .Shape.Height .Shape.Width = 200 ' An adjustment factor of 1.1 seems to work ok. .Shape.Height = (lArea / 200) * 1.1 End If End With Next ' comment End Sub

 

[icecurtain]

Found this thanks AAE

Sub AlignComments()

Dim c As Range, r As Range

Set r = Range("A1:KK100") 'adjust range reference as needed

Application.ScreenUpdating = False

On Error Resume Next

For Each c In r
If Not c.Comment.Text = "" Then
c.Comment.Shape.Left = c.Offset(0, 1).Left
c.Comment.Shape.Top = c.Offset(1, 1).Top
End If
Next c

Application.ScreenUpdating = True

End Sub