Adjusting Comment Printouts

If you use comments in your worksheets quite a bit, you may wonder if there is a way to print the comments, but without the name and colon that normally preface every comment. Unfortunately, there is no built-in way to accomplish this in Excel. However, a macro can be used to quickly pull all the comments from a worksheet and place them in their own worksheet. This worksheet could then be printed, as it would amount to a compendium of all the comments. The macro is as follows:

Sub Workbook_BeforePrint(Cancel As Boolean)
    myCount = 0
    For Each c In ActiveSheet.Comments
        myCount = myCount + 1
        myComment = ActiveSheet.Comments(myCount).Text
        Sheets(2).Range("a1").Offset(myCount, 0).Value = _
          Mid(myComment,InStr(myComment, Chr(10)))
    Next
End Sub

This macro places the comments on the second worksheet in a workbook, so if you want them on a different worksheet (so you don't overwrite information already on the second sheet) you will have to make a modification to the Sheets(2) object.

Note, as well, that the macro name is Workbook_BeforePrint. This means that the macro will run every time you go to print your worksheet.