ConvertToShape (Methode)

Sub Zeichnung()
Dim TB As Object
Set TB = ActiveSheet.Shapes
TB.AddShape(msoShapeRectangle, 120, 90, 150, 120).Select
Selection.Name = "Test1"
With TB.BuildFreeform(msoEditingAuto, 120, 90)
.AddNodes msoSegmentLine, msoEditingAuto, 120 + 150, 90
.AddNodes msoSegmentLine, msoEditingAuto, 150, 120
.AddNodes msoSegmentLine, msoEditingAuto, 120, 210
.AddNodes msoSegmentLine, msoEditingAuto, 120, 90
.ConvertToShape.Select
End With
Selection.Name = "Test2"
Range("G10").Select
End Sub

Das gleiche script bringt in der Office 2000 er Version eine Fehlermeldung in der Zeile
ConvertToShape.Select
weiß jemand von den Profis woran das liegen kann.
Oder gibt es eine elegantere Lösung einem Shape einen Namen zu geben.
gruß wolfgang