Test a cell for a comment presence from within a macro form 2007

[Fritz]

I would like to completely control cell comments from a macro form. I am
unable to determine if a cell does not have a comment or does have one. How
do you relate the comment of each cell in a row of cells to its comment
object. Comment index numbers do not seem to carry any relationship with
them outside the object.

 

[Peter T]

dim cell as Range
dim cmt as Comment

'' relate comment to cell

For each cell in Range("A1:J1")
If not cell.Comment Is nothing then
' it has a comment
Set cmt = cell.Comment ' if want to do more with the comment
debug.? cell.Address(),0)
debug.? cmt.Text
end if
next


relate cell to comment

For each cmt in Activesheet.comments
debug.? cmt.parent.Address(),0)
debug.? cmt.Text
Next

Regards
Peter T