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