software

Recording a macro does not help - it gives:

Selection.ShapeRange.ScaleWidth 0.41, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.22, msoFalse, msoScaleFromTopLeft

But replacing quot;Selectionquot; with quot;Range(quot;Bquot; amp; 15).commentquot; does not work.

Any ideas, please? Thanks!

Pete

Hi,

Try,

With Range(quot;Bquot; amp; 15).Comment.Shape
.ScaleWidth 0.41, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.22, msoFalse, msoScaleFromTopLeft
End With

Cheers
Andy

Pete at Sappi Fine Paper wrote:
gt; Recording a macro does not help - it gives:
gt;
gt; Selection.ShapeRange.ScaleWidth 0.41, msoFalse, msoScaleFromTopLeft
gt; Selection.ShapeRange.ScaleHeight 0.22, msoFalse, msoScaleFromTopLeft
gt;
gt; But replacing quot;Selectionquot; with quot;Range(quot;Bquot; amp; 15).commentquot; does not work.
gt;
gt; Any ideas, please? Thanks!
gt;
gt; Pete

--

Andy Pope, Microsoft MVP - Excel
www.andypope.info

That worked!! Thanks Andy!

quot;Andy Popequot; wrote:

gt; Hi,
gt;
gt; Try,
gt;
gt; With Range(quot;Bquot; amp; 15).Comment.Shape
gt; .ScaleWidth 0.41, msoFalse, msoScaleFromTopLeft
gt; .ScaleHeight 0.22, msoFalse, msoScaleFromTopLeft
gt; End With
gt;
gt; Cheers
gt; Andy
gt;
gt; Pete at Sappi Fine Paper wrote:
gt; gt; Recording a macro does not help - it gives:
gt; gt;
gt; gt; Selection.ShapeRange.ScaleWidth 0.41, msoFalse, msoScaleFromTopLeft
gt; gt; Selection.ShapeRange.ScaleHeight 0.22, msoFalse, msoScaleFromTopLeft
gt; gt;
gt; gt; But replacing quot;Selectionquot; with quot;Range(quot;Bquot; amp; 15).commentquot; does not work.
gt; gt;
gt; gt; Any ideas, please? Thanks!
gt; gt;
gt; gt; Pete
gt;
gt; --
gt;
gt; Andy Pope, Microsoft MVP - Excel
gt; www.andypope.info
gt;