Application.Workspaces

Property Workspaces As Workspaces

The Workspaces property returns the collection of all workspaces available in the application.

The Workspaces property returns a read-only value.

The following code 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