Hi James,

Not too sure about any solution, but I'd change the syntax of your second code string by moving a paren...

[vba]If Len(ActiveDocument.Tables(1).Cell(lRows, 1).Range.Text) - 2 = 0[/vba]

(Looking forward to a real answer. )