Insert comment with text taken from a cell

[Jriley_11]

I have code written to insert a blank comment into the active cell. I was hoping there is a way to manipulate it to have the comment contain text from another cell. Here is what I have.

Sub CommentAddOrEdit()

Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
Set cmt = ActiveCell.AddComment
cmt.Text Text:=""
End If
cmt.Visible = True
cmt.Shape.Select
End Sub

 

[Fluff]

What cell do you want to get the text from?

 

[Jriley_11]

C7

 

[Fluff]

Ok, how about

Sub CommentAddOrEdit()

Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
   Set cmt = ActiveCell.AddComment
   cmt.Text Range("C7").Value
End If
cmt.Visible = True
cmt.Shape.Select
End Sub

 

[Jriley_11]

Well that was pretty simple! Thanks!

 

[Fluff]

You're welcome & thanks for the feedback.