[Robin]

Thanks Helmut
I eventually inserted a page-break at the problem row, inserted the required
amount of rows in the top table and copied the rows in the bottom table into
the top table (does this make sense?). Your help is greatly appreciated.
Rob

"Helmut Weber" wrote:

Ha....

with Word _2003_ and a 10 times 20 table,
after the second run,
the table is uniform.

Sub Test9809()
Dim oCll As Cell
Dim oTbl As Table
Dim lRow As Long
Dim lClm As Long
Set oTbl = ActiveDocument.Tables(1)
For lClm = 1 To oTbl.Columns.Count
For lRow = 1 To oTbl.Rows.Count
oTbl.Cell(lRow, lClm).Select
Selection.Cells(1).Width = 30
Next
Next
MsgBox oTbl.Uniform
End Sub

Ja.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"