Sub Test() Dim sp As New SnapPoint If ActiveShape.Type <> cdrConnectorShape Then MsgBox "Select a connector line." Exit Sub End If Set sp = ActiveShape.Connector.StartPoint If sp.Type = cdrSnapPoint Then sp.Parent.CreateSelection End IfEnd Sub