Sub Test() Dim crv As Curve Dim nr As NodeRange Set crv = ActiveShape.Curve Set nr = crv.Nodes.AllExcluding(1, crv.Nodes.Count) nr.Move 0, 1 nr.Move 0, -1, nr.Count \ 2, TrueEnd Sub