Sub Test() Dim nr As NodeRange Set nr = ActiveShape.Curve.Selection MsgBox nr.Count & " node(s) selected in the curve"End SubSub Test() Dim nr As New NodeRange Dim n As Node Dim ret As VbMsgBoxResult For Each n In ActiveShape.Curve.Nodes If n.Type = cdrCuspNode Then nr.Add n Next n If nr.Count = 0 Then MsgBox "No cusp nodes found" Else ret = MsgBox(nr.Count & " cusp nodes found. Do you want to delete them?", vbYesNo) If ret = vbYes Then nr.Delete End If End Sub