Sub test()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
With Cmt
.Shape.TextFrame.AutoSize = True
End With
Next
End Sub
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
With Cmt
.Shape.TextFrame.AutoSize = True
End With
Next
End Sub