SharedWorkspaceFolders Collection

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

Using the SharedWorkspaceFolders Collection

Use the Folders property of the SharedWorkspace object to return a SharedWorkspaceFolders collection.

        Dim swsFolders As Office.SharedWorkspaceFolders
    Set swsFolders = ActiveWorkbook.SharedWorkspace.Folders
    MsgBox "There are " & swsFolders.Count & _
        " folder(s) in the current shared workspace.", _
        vbInformation + vbOKOnly, _
        "Collection Information"
    Set swsFolders = Nothing