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