Insert a new module into the workbook (Alt + F11) and pase this code in

Function GetComment(rCommentCell As Range)
Dim thecomment As String
On Error Resume Next
thecomment = WorksheetFunction.Clean _
(rCommentCell.Comment.Text)
GetComment = thecomment
On Error GoTo 0
End Function

Put this in a cell

=GetComment(A1)

If A1 contains a comment it will be returned



"AshMorK" wrote:

Hi,
I need a tool that allow me to show a cell content into a comment for
another cell.

Thanks in advance.

AMK