Sub abcd()
For Each cmt In ActiveSheet.Comments
cmt.Shape.Placement = xlMove
Next
End Sub

--
Regards,
Tom Ogilvy

"Martin" wrote in message
...
Hi Tom,

Sorry I was not clear enough. I want to change all comments to xlMove.
--
Regards,

Martin


"Tom Ogilvy" wrote:

What property do you want to change and do you want to change all
comments
or just one comment?

--
Regards,
Tom Ogilvy

"Martin" wrote in message
...
Hi there,

I'd like to change property of comments only with a macro. The code in

http://support.microsoft.com/default...b;en-us;211769

is changing the property of all objects in the sheet.

Does anyone know if this is possible.

--
Regards,

Martin