Copy Comments to a cell

[CLR]

Hi All.........
Can anyone please tell me how to interrogate all the cells in column O, and
if there's a CommentBox applied, to copy the Text from the CommentBox to a
cell in the same row but in column W? If no CommentBox, then just leave the
corresponding cell in column W empty.

TIA
Vaya con Dios,
Chuck, CABGx3

 

[Gary''s Student]

Sub demo()
Dim r As Range, rr As Range
Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
Set r = Intersect(r, Columns("O"))
For Each rr In r
rr.Offset(0, 8).Value = rr.Comment.Text
Next
End Sub

 

[CLR]

Hi Gary"s Student............
Your code works super-well..........thank you muchly, kind Sir.

Vaya con Dios,
Chuck, CABGx3

 

[Gary''s Student]

You are very welcome.
--
Gary's Student

Hi Gary"s Student............
Your code works super-well..........thank you muchly, kind Sir.

Vaya con Dios,
Chuck, CABGx3