SharedWorkspaceLinks Object (Office)
A collection of the SharedWorkspaceLink objects in the current shared workspace.
Beginning with Microsoft Office 2010, this object or member has been deprecated and should not be used.
Dim swsLinks As Office.SharedWorkspaceLinks Set swsLinks = ActiveWorkbook.SharedWorkspace.Links MsgBox "There are " & swsLinks.Count & _ " link(s) in the current shared workspace.", _ vbInformation + vbOKOnly, _ "Collection Information" Set swsLinks = Nothing