SharedWorkspaceLinks Collection

A collection of the SharedWorkspaceLink objects in the current shared workspace.

Using the SharedWorkspaceLinks Collection

Use the Links property of the SharedWorkspace object to return a SharedWorkspaceLinks collection.

        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