Retrieving Text from Cell Comments

T

tbrown

Does anyone know how to capture the text in the cell
Comments to a file? There is no need to retain reference
to cells. Comments cell contain POC info that I want to
capture without copying and pasting each comment.
Appreciate any suggestions.
Terry
 
J

Jim Rech

Harald Staff posted this macro a while back that may help you:

Sub ListThem()
Dim C As Comment
Dim L As Long
L = 1
For Each C In Sheets(1).Comments
Sheets(2).Cells(L, 1).Value = C.Parent.Address
Sheets(2).Cells(L, 2).Value = C.Text
Sheets(2).Cells(L, 3).Value = C.Author
L = L + 1
Next
End Sub

Adjust the Sheets references as needed.
 
Top