Maybe
Sub JoinNodes() Dim s As Shape, sr As ShapeRange Set s = ActiveSelectionRange.Combine s.Curve.JoinTouchingSubpaths s.AddToSelectionEnd Sub
i had already tried using s.Curve.JoinTouchingSubpaths but it gives run-time error 91
Oops, yeah, works on windows
i've also tried to use this macro in a windows and gives the same error
Can you give an example of what you're starting with. Works with X7. I'll have to try it at home on my 2020 version