reference to Comments

  • Thread starter Thread starter Thomas Eggenschwiler
  • Start date Start date
T

Thomas Eggenschwiler

How can I create a reference (in cell A1) to comments I inserted in
cell A2? Or asking the question in a different way: Can I display the
comments from cell A2 in cell A1 by referring to the comments of cell
A2 (not the value in cell A2)?
Thanks
 
Public Function ShowComments(rng as Range)
Application.Volatile
On error resume next
set cmt = rng(1).Comment
On Error goto 0
if not cmt is nothing then
ShowComments = cmt.Text
else
ShowComments = ""
end if
End Function

=showcomments(E5)

Won't update until there is a calculation.
 
Thomas,
try this:
Read the comment from cell A2 by:
MyComment = split(range("a2").Comment.Text,":")(1)

Stick it in cell A1:
Range("a1") = Mycomment

The split statement will take off the Username that comes with the comment.

Ko Vijn
 
Back
Top