Sub Test() Dim spath As SubPath For Each spath In ActiveShape.Curve.Subpaths spath.Closed = True Next spathEnd Sub