This works if you turn on text wrapping in the cell:
Function comment2cell(rTarget As Range) As String
comment2cell = rTarget.Comment.Text
End Function
Note that if rTarget doesn't have a comment or is 1 cell this return
#VALUE.
Co
--
colofnatur
-----------------------------------------------------------------------
colofnature's Profile:
http://www.excelforum.com/member.php...fo&userid=3435
View this thread:
http://www.excelforum.com/showthread.php?threadid=55939