Copy Text into comment box

[Juan]

Hi,
I'm trying to modify the macro below, but can't seem to get it.
Sub comnt()
Range("a2").Select
Dim tst As String
tst = ActiveCell.Value
'apply variable to the desired location
Range("d2").NoteText tst

Basically, some rows in range Z9:48 contain text, which I want to copy
into range Y9:Y48 as comment box.
The macro does work if I put Range("Z9").select Range(Y9").NoteText tst
Which will just do that row.

would appreciate any help.
Thank you,
Juan

 

[Gary''s Student]

Sub CaptureText()
Set r = Range("Z9:Z48")
For Each rr In r
rr.Offset(0, -1).NoteText rr.Value
Next
End Sub

 

[Juan]

Gary
thank you so much for the quick reply. It works.

Juan

 

[Gary''s Student]

You are very welcome!