Hello Greg,
Sorry your code is OK.

I forgot a few coulombs with a checkbox. They are count one extra in the form. It doesn't matter or the boxes are on or off.
So table 9 is also working fine for deleting empty row's.
Thank you again!
The under line is also working in table 11 and 15.
In table 9 is it working when the whole inner table has a line. In table 9 I want in the middle a blank coulomb because I want a border between the right and left part.
(actually it are two tables next to each other). When I do this, the line
Selection.Tables(1).Rows.Last.Borders(wdBorderBott om).Color = Selection.Tables(1).Rows.First.Borders(wdBorderTop ).Color
isn't working anymore.
I tried to fix it to change some codes but ...I'll think I need some help...
The test document is in the attachment.
Greetz ViBoR.
From a rainy Holland