VBA Delete Shapes that Do Not Have Connections

All,

I have a worksheet that includes a number of shapes connected by connectors. I'd like to write a macro that deletes all shapes that do not have connectors connected to them (long story).

Any idea on how to accomplish this?

Best,
Chris

Possibly... (not tested)

Sub DeleteConnector()
    Dim sh As Shape
    
    For Each sh In ActiveSheet.Shapes
        If sh.Connector Then
            If Not sh.ConnectorFormat.BeginConnected Then
                sh.Delete
            End If
        End If
    Next
End Sub

Thanks, Dangelor - worked perfectly

Thanks for letting me know! Never dealt with that aspect of Excel before.