With ActivePresentation.Slides(Windows(1).Selection.SlideRange.SlideIndex) Windows(1).Selection.ShapeRange.ConnectorFormat.EndConnect .Shapes(1), .Shapes(1).ConnectionSiteCount End With