That is interesting that pasting as text only converts non-breaking spaces to spaces. This is not something I've ever noticed before. Do you know of other character substitutions that happen with this?

To solve that issue, we can do a substitution either while loading the array or when placing the array contents. Let's do it while loading the array.
Change this line
arrFN(aFN.Index) = aFN.Range
to
arrFN(aFN.Index) = Replace(aFN.Range.Text, Chr(160), " ") 'replace non-breaking space with space

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia