Sub AutoFitComments()
 On Error Resume Next
 Dim c As Comment
 For Each c In ActiveSheet.Comments
  c.Shape.TextFrame.AutoSize = True
 Next c
End Sub