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

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
--
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
>
>

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(xlCellTypeComments)
> 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
> >
> >

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(xlCellTypeComments)
> > 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
> > >
> > >