.Value = [if(a1:az1000<>"",trim(a1:az1000),"")]
With .Characters(1, 18).Font
.Name = "Arial"
.FontStyle = "?ioiia"
.Size = 10
.ColorIndex = 1
btw, the downside of the above sledgehammer approach is that if the errant characters acted as spaces, you'll find your words run together at those points. In that case, the SUBSTITUTE() function would probably provide a bit more finesse. and if you used Alt-Enter to put in a carriage return in the cell, that will also be removed, causing the two words on either side of it to become one.
Between "a" and "test" I entered a Alt-Enter. When wrap it on, "test" will wrap to the next line. When wrap is off, a box-like character will show between the two words. Either way, the macro will strip it off.
The macro is especially useful when getting dumps from certain databases.