If you test for NewFileName, do you get a valid string?

I am trying to get:[vba]

ActiveDocument.Shapes("Text Box 2").TextFrame.TextRange.Text

[/vba] - but replacing "Text Box 2" with an index number, so...
[vba]

ActiveDocument.Shapes(2).TextFrame.TextRange.Text

[/vba]and I get an error.