SharedWorkspaceMembers Object (Office)
A collection of the SharedWorkspaceMember objects in the current shared workspace site.
Beginning with Microsoft Office 2010, this object or member has been deprecated and should not be used.
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