Sub AddConnector()
Dim ws As Worksheet
Dim shp As Shape
Dim cnct As Shape
For Each shp In Worksheets("Checklist Structure").Shapes
If shp.AutoShapeType = msoShapeRoundedRectangle And shp.Connector = msoFalse Then
Else
Set cnct = Worksheets("Checklist Structure").Shapes.AddConnector(msoConnectorElbow, 5, 5, 5, 5)
With cnct
.Line.EndArrowheadStyle = msoArrowheadOpen
.ConnectorFormat.BeginConnect Worksheets("Checklist Structure").Shapes("Rounded Rectangle 46"), 2
.ConnectorFormat.EndConnect(shp, 2)
End With
End If
Next
End Sub