This line works well in a macro dealing with a large amount of data to be transposed into a single cell.

So if it throws an error, then is it safe to assume the receiving cell character limit is exceeded or is it within the code as I have posted here.

..Cells(k, 1).Resize(rowsize:=UBound(arrOut) + 1) = _
WorksheetFunction.Transpose(arrOut)

In either case is there a work-around?

Thanks,
Howard