Inserting Workbook Comments Into a Cell

Jim would like to insert the text found in the Comments portion of a workbook's properties into a cell. This isn't a comment attached to a cell, but the contents of the Comments field in the workbook properties.

If you need to simply copy the comments a single time, then doing so manually may be the best bet. You can display the Comments field, select whatever contents you want to put into your worksheet, and then press Ctrl+C. Close the properties, select the desired cell, and then press Ctrl+V.

If you have more of a need for the inclusion to be dynamic, then the only way to add those comments to a cell is to use a macro. If you want to have the contents appear in a specific cell (such as A1), then you can simply use a single line of code:

Range("A1")=ActiveWorkbook.BuiltinDocumentProperties("comments")

That's it; a single line of code to stuff the comments into the cell. You can build upon this, if desired, to create a user-defined function that is helpful for placing the comments anywhere you desire.

Function putComments() As String
    putComments=ActiveWorkbook.BuiltinDocumentProperties("comments")
End Function

In order to use this user-defined function, simply use the following in a cell:

=putComments()