Copy Comments to a cell
You are very welcome.
--
Gary's Student
"CLR" wrote:
Hi Gary"s Student............
Your code works super-well..........thank you muchly, kind Sir.
Vaya con Dios,
Chuck, CABGx3
"Gary''s Student" wrote:
Sub demo()
Dim r As Range, rr As Range
Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComme nts)
Set r = Intersect(r, Columns("O"))
For Each rr In r
rr.Offset(0, 8).Value = rr.Comment.Text
Next
End Sub
--
Gary's Student
"CLR" wrote:
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
|