Example

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

Visual Basic for Applications
 Dim swsMembers As Office.SharedWorkspaceMembers Set swsMembers = ActiveWorkbook.SharedWorkspace.Members MsgBox "There are " & swsMembers.Count & _ " member(s) in the current shared workspace.", _ vbInformation + vbOKOnly, _ "Collection Information" Set swsMembers = Nothing 

See also: