Sub Comment_Text()

Dim cmt As Comment
Set cmt = ActiveCell.Comment

If cmt Is Nothing Then
Set cmt = ActiveCell.AddComment
cmt.Text Text:=Sheets("Sheet1").Range("A1").Value
Else
Exit Sub
End If

With cmt.Shape.TextFrame
.Characters.Font.Bold = False
End With

End Sub


Gord

On Wed, 3 Sep 2008 09:23:34 -0700 (PDT), Pooh wrote:

I would like to be able to view/link the multi-line contents of a cell
on a secondary workbook sheet into the comment of a cell on my primary
sheet. I'm trying to avoid re-typing into the comment & I do not want
to hyperlink to the sheet as this causes the annoyance of hyperlinking
back and forth. Any ideas?