A collection of the objects in the current shared workspace.

Example

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

Visual Basic for Applications 
 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
ofv

See also: