Yes that would work.

You could stick your cursor in the table and run this macro:
Sub ScratchMacro()

Dim oTbl As Table
Dim oRow As Row
Dim oCell As Cell
Dim bNotEmpty As Boolean

Set oTbl = Selection.Tables(1)
bNotEmpty = False
For Each oRow In oTbl.Rows
For Each oCell In oRow.Cells
If Len(oCell.Range.Text) 2 Then
bNotEmpty = True
Exit For
End If
Next
If bNotEmpty = False Then oRow.Delete
bNotEmpty = False
Next

End Sub
--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support

Jezebel wrote:
Sort the table. Then all the empty rows will fall together and you can
delete them all at once.


"Ginger" wrote in message
...
How ould I remove all empty rows within a table without having to
select each
one?