Jim
Just a wild guess, if you still did not solve the problem, what happens if you change
For Each loColumn in .Columns
with
For Each loColumn in .Columns FOXOBJECT
if that does not solve the problem, what about:
For lnColumn = 1 to .ColumnCount
loColumn = .Columns(lnColumn)
.....
Next lnColumn
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges