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

  • Thread starter Thread starter Fritz
  • Start date Start date
F

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.
 
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
 
Back
Top