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 & " *" End If Next wks MsgBox sEnd Sub