Sub AutoSizeComment()
Dim xwk As Worksheet, xcomment As Comment
On Error Resume Next
For Each xwk In ThisWorkbook.Worksheets
For Each xcomment In xwk.Comments
xcomment.Shape.Height = Application.CentimetersToPoints(14.5)
xcomment.Shape.Width = Application.CentimetersToPoints(9.5)
Next xcomment
Next xwk
On Error GoTo 0
End Sub