Maybe this will work? Dave
[VBA]
strText = WorksheetFunction.Clean(.Paragraphs(4).Range.Text)

[/VBA]