SharedWorkspaceLinks Object - Microsoft Office Excel

Example

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

Visual Basic for Applications

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`

 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

See also: