Sub Test() MsgBox "There are currently " & ActiveDocument.SelectionInfo.Count & _ " objects selected."End Sub