Sub Connect() Dim s as Shape Dim sp as SubPath Set s = ActiveShape Set sp = ActiveShape.Curve.Subpaths(1) With s.Curve.Nodes(1) .JoinWith sp.Nodes(9) End WithEnd Sub