Trying to add a textbox with VBA, but getting a Smiley Face instead

[JoeMo]

Excel 2007, Vista.
When I step through the code and hover over "Type:= msoTextBox" the tip pointer indicates a value of 17 which is consistent with the mso shape type enum for a TextBox, but Excel produces a smiley face instead. Am I missing something?

Sub TBoxAdd()
Dim sh As Shape
'next line returns a smiley face
Set sh = ActiveSheet.Shapes.AddShape(Type:=msoTextBox, Left:=100, Top:=100, Width:=100, Height:=100)
MsgBox sh.Name  'Returns "Smiley Face #"
End Sub

 

[martindwilson]

i saw this from andy pope

You get the smiley face when adding a shape because the constants share
the same value.

msoShapeSmileyFace = 17
msoTextBox = 17

Use AddTextbox instead

[COLOR=#273D49][FONT=arial]..AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=100, _[/FONT][/COLOR]
[COLOR=#273D49][FONT=arial]Top:=100, Width:=100, Height:=100)[/FONT][/COLOR]