Sub Test() Dim nr As NodeRange Set nr = ActiveShape.Curve.Subpaths(1).Selection MsgBox "There are " & nr.Count & " nodes selected in the first subpath"End Sub