[Doug Robbins - Word MVP]

Use the following:

Dim i As Long
With Selection.Tables(1)
For i = .Rows.Count To 1 Step -1
If Len(.Cell(i, 2).Range.Text) = 2 Then
.Rows(i).Delete
End If
Next i
End With


--
Hope this helps,

Doug Robbins - Word MVP

Please reply only to the newsgroups unless you wish to obtain my services on
a paid professional basis.

"cepes" wrote in message
...
Hi:
I have a Word table with labels in Column A and merged data in Column B.

I need to add VBA so that if Column B is empty, the entire row is deleted.

Thanks-

Charlie

Word 2007