Mark,
I happened to have a subroutine that copies the text of comments
that reside on one sheet of a workbook to another sheet in the same
workbook. The Word solution that was posted is very nice, but if you
want to stay in Excel, this should get you part of the way there.
HTH, James

Sub ShowComments
Dim j as Integer
ThisWorkbook.Sheets("Comments").activate
cells.clearcontents
With ThisWorkbook.Sheets("Sheet1")
for j=1 to .Comments.Count
cells(j,"a")=.Comments(j).Text
next j
End With
End Sub

On Jun 13, 9:59?am, Mark wrote:
Can someone supply me with some code which examines a workbook, finds
comments in cells and then copies the contents of those comments into a
seperate workbook as the code runs through each worksheet in a workbook.

Mark