The Workspaces property returns the collection of all workspaces available in the application.
Examples:
The following VBA example displays the available workspaces in a message box and adds an asterisk next to the name of the active workspace.
Sub WorkspaceCollection()
Dim s As String
Dim wks As Workspace
s = "Available Workspaces: "
For Each wks In Workspaces
s = s & wks.Name
If wks.Active Then s = s & " *"
Next wks
MsgBox s
End Sub