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