CELL NOTES - Returning the Text in another cell

[Mark Dransfield]

Does anybody know how to get a cell to return the NOTE of another cell.
Eg. like you would expect =NoteText(A1)
Or like object.NoteText does in VBA

I can't find anything on this anywhere, but then I only found the VBA
equivalent by recording.

Any help greatly appreciated.

Mark Dransfield

[Dana De]

Hello. I believe the following works in Excel 97.
I believe in previous versions comments were called Notes.
So, I am not sure if you have a previous version.

Function MyComment(rng As Range)
Application.Volatile
Dim str As String
str = Trim(rng.Comment.Text)
'// If you want to remove Chr(10) character from string, then
str = Application.Substitute(str, vbLf, " ")
MyComment = str
End Function

Mark Dransfield wrote in message <01bd80a7$df0b5ec0$85c322c3@vucppqlj>...

>Does anybody know how to get a cell to return the NOTE of another cell.
>Eg. like you would expect =NoteText(A1)
>Or like object.NoteText does in VBA
>I can't find anything on this anywhere, but then I only found the VBA
>equivalent by recording.

>Mark Dransfield