Returns a SharedWorkspaceMembers collection that represents the list of members in the current shared workspace. Read-only.
expression.Members()
expression Required. An expression that returns a SharedWorkspace object.
The following example lists the members in the current shared workspace.
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