reference to Comments

  • Thread starter Thomas Eggenschwiler
  • 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
 
T

Tom Ogilvy

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.
 
K

Ko Vijn

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
 
Top