how to change multiple cell comment properties?

[numbersjim]

I have a speadsheet with many cell comments. In the format comment dialog
box / properties tab the default is "don't move or size with cells". If I
change it to "move and size with cells, it only affects one comment at a
time. Is there a way to change the default or do it to all cell comments
globally?

 

[JB]

Sub SizeZoneComment()
For Each c In ActiveSheet.Comments
c.Shape.Width = 60
c.Shape.Height = 40
Next c
End Sub

Sub AutoSize()
For Each c In ActiveSheet.Comments
c.Shape.TextFrame.AutoSize = True
Next c
End Sub


JB
http://boisgontierjacques.free.fr/