Sub Test() Dim sgr As SegmentRange Set sgr = ActiveShape.Curve.Segments.AllExcluding(1, 2, 3) sgr.AddNodeEnd Sub