Macro to copy into Comments pop-up

[Guest]

I would like to generate a macro that will copy comments from a cell into
another cells Comments pop-up screen.

It will need to find a value in a column, go to the comments column
(approximately 4 columns away), copy the comments from the cell, go to the
Results Sheet and insert the comments into the Column pop-up.

The Results Sheet cell value will change to accomodate different scenarios.
The comments must change in accordance to this value. There will be several
cells in the Results Sheet that will have Comments and each of them will need
to be updated as the cell changes value.

Any help is appreciated.

 

[Tom Ogilvy]

Sub ABCD()
Dim rng as Range, rng1 as Range
Dim cmt as Comment
set rng = columns(3).Find("target")
if not rng is nothing then
set rng1 = rng.offset(0,4)
For Each cmt In Worksheets("Results").Comments
cmt.Shape.TextFrame.Characters.Text = rng1.TExt
Next
End if
End Sub