Sub WorkspaceDefault() If ActiveWorkspace.Default = False Then MsgBox ActiveWorkspace.Name End IfEnd Sub