Extract text from Comments

Do you want the comment text just extracted from a particular cell or all cells?

This macro will extract all comments from the active sheet and display them in a message box.

Sub GetCommentText()
Dim cm As Comment
Dim sht As Worksheet

Set sht = ActiveSheet
For Each cm In sht.Comments
MsgBox cm.Text
Next
End Sub

Regards,
Dax

This is a good start! (Thx Dax)

I want to extract the Comment text of one cell and place it in another (adjoining?) cell as 'normal' text.

Simon

Simon,

How about this?

Dax.

Sub PutCommentTextInCell()
Dim cm As Comment
Dim rngeCommentSource As Range
Dim rngeDestination As Range
Dim sCommentText As String

Set rngeCommentSource = Range("D8") 'Change this to what you want
Set rngeDestination = Range("A1") 'Ditto

sCommentText = rngeCommentSource.Comment.Text
rngeDestination.Value = sCommentText
End Sub