S Steven K Feb 2, 2004 #1 Hello, Is there a way to step through all the comments in xls file and then autoformat them?
G Guest Feb 2, 2004 #2 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
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
