Here's another version:

Sub tester()
x = ActiveCell.Comment.Text
mycell = Application.InputBox("To What Cell Do I Copy the Comment?")
Range(mycell).Value = x
End Sub



"Jim May" wrote in message
news:TvTjd.88659$UA.18707@lakeread08...
try the UDF:

Function MyComment(rng As Range)
Application.Volatile
Dim str As String
str = Trim(rng.Comment.Text)
'// Next line removes Chr(10) character from string
str = Application.Substitute(str, vbLf, " ")
MyComment = str
End Function

Then with your cell a4 including a comment, in cell B5 enter
=MyComment(A4)

HTH


"terryv" wrote in message
...
Hello
Is there anyway to take a comment from a cell and place it in another
cell's
content?

If a comment is added to a cell on Sheet1, after the comment is closed
(finished), I would like to have the cell content of another sheet be
the
comment content.

Kinda like a OnChange for a comment.

Thank you
Terry