B
Bruce
I am writing some code to pick up the comments off my worksheet and dump as a
summary on a new sheet. I am doing this with the text property. However I
have the following questions.
1) Can I remove the Author name from the Text and just reveal the message?
2) Can I determine the date the comment was updated.
3) Can I determine the cell address the comment comes from?
See below....
Sub myComments()
Application.ScreenUpdating = False
MyMarket = "China"
Set cmt = Worksheets(MyMarket).Comments
'Clear old
Sheets("Comments").Range("2:5000").ClearContents
myRow = 2
For Each c In cmt
Sheets("Comments").Range("C" & myRow) = c.Text
myRow = myRow + 1
Next
Application.ScreenUpdating = True
End Sub
summary on a new sheet. I am doing this with the text property. However I
have the following questions.
1) Can I remove the Author name from the Text and just reveal the message?
2) Can I determine the date the comment was updated.
3) Can I determine the cell address the comment comes from?
See below....
Sub myComments()
Application.ScreenUpdating = False
MyMarket = "China"
Set cmt = Worksheets(MyMarket).Comments
'Clear old
Sheets("Comments").Range("2:5000").ClearContents
myRow = 2
For Each c In cmt
Sheets("Comments").Range("C" & myRow) = c.Text
myRow = myRow + 1
Next
Application.ScreenUpdating = True
End Sub