Sub WorkspacesCount() MsgBox "There are " & Workspaces.Count & " workspaces in the collection."End Sub