SharedWorkspaceFiles Object (Office)
Published: July 09, 2012
A collection of the SharedWorkspaceFile objects in the current shared workspace.
Beginning with Microsoft Office 2010, this object or member has been deprecated and should not be used.
Dim swsFiles As Office.SharedWorkspaceFiles Set swsFiles = ActiveWorkbook.SharedWorkspace.Files MsgBox "There are " & swsFiles.Count & _ " file(s) vbInformation + vbOKOnly, _ "Collection Information" Set swsFiles = Nothing