Hi

this worked for me. (Excel 2010 on Win 8 64 bit)

Code:
Selection.Name = "MyShapes"
    Selection.Characters.Text = HelpLkupVal
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.TextFrame2.AutoSize = msoAutoSizeShapeToFitText