Type Info:
Name As String
Dim Workspace As Workspace Dim WorkspaceName As String Set Workspace = Application.Workspace WorkspaceName = Workspace.Name