ShapeRange.ScaleHeight 0.22, msoFalse, msoScaleFromTopLeft But replacing "Selection" with "Range("B" & 15).comment" does not work.
www.excelforum.com