Example

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

Visual Basic for Applications 
 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

See also: