SharedWorkspace![]() ![]() ![]() |
A collection of the SharedWorkspaceFolder objects in the current shared workspace.
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