Link Excel Comment to Sheet, Cell (Bookmark)

  • Thread starter Thread starter Pooh
  • Start date Start date
P

Pooh

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?
 
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
 
Back
Top