Steven,

The following function will auto-size all comments in the active sheet.
Perhaps you could adapt it to suit your needs. HTH


Function CommentsAutoSizeAll()

Dim cmt As Comment
Dim cmts As Comments
Set cmts = ActiveSheet.Comments
For Each cmt In cmts
cmt.Shape.TextFrame.AutoSize = True
Next

End Function