Well, unless your Word cell has an empty paragraph at the start, there should be some output. You also don't need:
Sheets("Sheet1").Range("A" & 1) = Application.WorksheetFunction.Clean(Sheets("Sheet1").Range("A" & 1))
Well, unless your Word cell has an empty paragraph at the start, there should be some output. You also don't need:
Sheets("Sheet1").Range("A" & 1) = Application.WorksheetFunction.Clean(Sheets("Sheet1").Range("A" & 1))
Cheers
Paul Edstein
[Fmr MS MVP - Word]
Posting Permissions
Reply With Quote