Solved: comments object, placement property

[TheAntiGates]

To fix the "Cannot shift objects off sheet" problem I want to change all of a sheet's comments. I am weak with objects. I know I want to do
.Comment.Shape.Placement = xlMoveAndSize
but my problem is the object to apply this to and the For statement. Can you help?[vba]Sub Macro2()
Dim obj As Object
'Dim obj As Comment
On Error Resume Next
For Each obj In ActiveSheet.Shapes
obj.Comment.Shape.Placement = xlMoveAndSize
Next
End Sub[/vba]

[TheAntiGates]

Greg Truby solved this for me elsewhere...[vba]Dim rngCell As Range

On Error GoTo EndOfTheLine

For Each rngCell In Cells.SpecialCells(xlCellTypeComments)
rngCell.Comment.Shape.Placement = xlMoveAndSize
Next rngCell
EndOfTheLine:
End Sub[/vba]

[lucas]

Hi AG, glad you found a solution and thanks for posting it here for others.

If you are posting the same question in other forums would you please post a link to them?

Please read this.