SharedWorkspaceFiles Collection
SharedWorkspaceFile
A collection of the SharedWorkspaceFile objects in the current shared workspace.
Using the SharedWorkspaceFiles Collection
Use the Files property of the SharedWorkspace object to return a SharedWorkspaceFiles collection.
Dim swsFiles As Office.SharedWorkspaceFiles
Set swsFiles = ActiveWorkbook.SharedWorkspace.Files
MsgBox "There are " & swsFiles.Count & _
" file(s)
vbInformation + vbOKOnly, _
"Collection Information"
Set swsFiles = Nothing