Resize the comment window

[ledzepe]

Hi everyone and thanks in advance for the help.

I'm trying to macro comments on the cell. However I need to make the comment box bigger. Here's my code:

Range("G6").AddComment
Range("G6").Comment.Visible = False
Range("G6").Comment.Text Text:="Name:" & Chr(10) & "qqqq" & Chr(10) & ""
Selection.ShapeRange.ScaleHeight 3.28 ', msoFalse, msoScaleFromTopLeft
Range("G6").Select

I keep getting an error in the "selection.shaperange..." line. Help anyone?

[Carim]

Hi,

Give a try to following

Selection.Comment.Shape.TextFrame.AutoSize = True

HTH
Carim