Test a cell for a comment presence from within a macro form 2007
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
"Fritz" wrote in message
...
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.
|