A spreadsheet sent by email contains empty strings in
blank cells (I think) that stop text in cells to the left of
them from flowing across the blank cells to the right.

I have found that using texttocolumns eliminates whatever
data exists in the apparently blank cells allowing the
text to flow better.

For each column in the usedrange, I want to run the
texttocolumn operation using a fixed width such that
each column of the spreadsheet parses to only one
column of text. I have tried the following which works
most of the time but not all of the time. What could
I be doing wrong?

With ActiveSheet
For Each col In .UsedRange.Columns
col.TextToColumns DataType:=xlFixedWidth, fieldinfo:=Array(Array(0, 1), Array(80, 9))
Next col

Thanks