Retrieving Text from Cell Comments

  • Thread starter Thread starter tbrown
  • Start date Start date
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
 
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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top