Sub Test() Dim nr As NodeRange Set nr = ActiveShape.Curve.Nodes.AllExcluding(1, 2, 3) nr.DeleteEnd Sub