But your code

Sub ABCD()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
20#, 20#, 67.5, 46.5)
With shp.TextFrame
.AutoMargins = False
.MarginLeft = 0
.MarginRight = 0
.MarginBottom = 0
.MarginTop = 0
.Characters.Text = "ABCD EFGH IJKL MNOP"
End With
End Sub

works well and it's enough for me
I'm using Excel 2002
Thanks any way