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.

--
Regards,
Tom Ogilvy


"Thomas Eggenschwiler" wrote in message
om...
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

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

"Thomas Eggenschwiler" schreef in
bericht om...
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