Sub WorkspaceActive() If ActiveWorkspace.Active = True Then MsgBox ActiveWorkspace.Name End IfEnd Sub