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