Sub Test() If ActiveShape Is Nothing Then MsgBox "Nothing Selected" Exit Sub End If If ActiveShape.Type <> cdrTextShape Then MsgBox "Please select a text object." Exit Sub End If If ActiveShape.Text.Type <> cdrParagraphText And ActiveShape.Text.Type <> cdrParagraphFittedText Then MsgBox "Please select a paragraph text object." Exit Sub End If MsgBox "The number of frames in the text chain is: " & _ ActiveShape.Text.FramesInLink & vbCr & _ "Unused frames: " & ActiveShape.Text.UnusedFramesInLinkEnd Sub