Sub Test() If ActiveShape.Type = cdrTextShape Then MsgBox ActiveShape.Text.Selection.Text End IfEnd Sub