Naz

Public Sub Comment_Place()
Dim cmt As Comment
Dim cmts As Comments
Set cmts = ActiveSheet.Comments
For Each cmt In cmts
cmt.Shape.Placement = xlMove
Next
End Sub


Gord Dibben Excel MVP


On Sun, 23 Oct 2005 11:20:02 -0700, Naz wrote:

Thanks Howard but i don't think this is what i need.

Let me clarify, the comments are put in by other people as normal into a cell.
Then when i run the macro it fails.
What i need is a macro that selects all the comments on the sheet and
changes the property.

What i need is something like

select all comments
with selection
.Placement= xlmove
end with

but i don't know how to select all the comments on a sheet.