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