SharedWorkspaceMembers Collection

A collection of the SharedWorkspaceMember objects in the current shared workspace.

Using the SharedWorkspaceMembers Collection

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

        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