autosize a comment

[lior03]

hello
can anyone suggest a code for autosizing comments?
thanks

[Emily]

Comment resize by area

[VBA]
For Each cmt In ActiveSheet.Comments
With cmt
If Not Intersect(.Parent, Selection) Is Nothing Then
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 300 Then
lArea = .Shape.Width * .Shape.Height
.Shape.Width = 300
.Shape.Height = (lArea / 300) * 1.2
End If
End If
End With
Next
[/VBA]

[lostin_space]

where do you drop this code??? into the 'this workbook' module?

[Emily]

I placed in a standard module