Workspace.Default

Property Default As Boolean

The Default property returns whether the current workspace is the default workspace. If the default property is True, the current workspace is the default workspace.

The Default property returns a read-only value.

The following code example displays a list of all of the workspaces and whether each workspace is the default workspace:

Sub Test() 
 Dim Ws As Workspace 
 For Each Ws In Workspaces 
  s = s & Ws.Name & " - Default: " & Ws.Default & vbCr 
 Next Ws 
 MsgBox "Workspaces: " & vbCr & s 
End Sub