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/

On 25 fév, 20:34, numbersjim
wrote:
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?