Sub Test() Dim nr As NodeRange Set nr = ActiveShape.Curve.Selection nr.Remove 1 nr.Remove nr.Count nr.DeleteEnd Sub