Type Info:
Workspace As Workspace
Dim App As Application Dim Workspace As Workspace Set App = Application Set Workspace = App.Workspace