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

Juan

"Gary''s Student" wrote:

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

--
Gary''s Student - gsnu200830