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