Sub Test() Dim crv As Curve Dim spath As SubPath, spath1 As SubPath Set crv = ActiveShape.Curve Set spath = crv.Subpaths(1) Do If Not spath.Closed Then Set spath1 = spath.Next Do If Not spath1.Closed Then Exit Do Set spath1 = spath1.Next Loop spath.EndNode.ConnectWith spath1.StartNode Else Set spath = spath.Next If spath.Index = 1 Then Exit Do End If Loop End Sub