Extract Comments

[danjw_98]

I was trying to see if there was a way to extract cell comments from only specific columns and then the text pasted to a different worksheet?

any help would be appreciated... thanks...

 

[Scott R]

Hopefully you can build off of this. Range("F:H") is just an example of columns you want to find comments in & copy to other sheet.

Sub CopyComments()

Dim c As Comment
Dim i As Integer

For Each c In Sheet1.Comments
    If Not Intersect(c.Parent, Range("F:H")) Is Nothing Then
        i = i + 1
        Sheet2.Cells(i, 1) = c.Text
    End If
Next c

End Sub

 

[danjw_98]

thanks...