Sub Test() Dim nr As NodeRange Set nr = ActiveShape.Curve.Nodes.All MsgBox "There are " & nr.Count & " nodes in the curve." nr.RemoveAll MsgBox "Now the range contains " & nr.Count & " nodes."End Sub