🚀 go-pugleaf

Chris, thank you for the examples. I think that the text frame will not work as I'm looking at individual cells? But with your example I was able to think it through. (And also thanks - yes I did want to change tracking.)

Here is my code chunk so shrink down the contents of a cell to make it fit on one line:

' count the text lines to see if it overflows and wraps to another line
cell_lines = MyTable.Rows.Item(row_loop).Cells.Item(column_loop).TextLines.Count
'if it wraps to another line the text line count will be over 1
Do While cell_lines > 1.5
' get the current tracking / MyInsertionpoint = text just placed in the cell
MyIn_Tracking = MyInsertionpoint.Tracking
'compute a new tracking of current - 10
MyIn_New_Tracking = MyIn_Tracking - 10
' set the new tracking
MyInsertionpoint.Tracking = MyIn_New_Tracking
' count the text lines to see if it overflows and wraps to another line
cell_lines = MyTable.Rows.Item(row_loop).Cells.Item(column_loop).TextLines.Count
Loop

Thanks,
iolaire