Hi

I'm hoping someone will be able to give me a quick answer for this as I don't think the problem is that complicated - I just can't see the solution.

I have several iterations of the same table in a Word document (repeated on several different letters).


Each cell in the first column contains a single bullet point - that's it. Nothing else.
Each cell in the second column contains information by way of DocVariables which may or may not display a value.

I have code from a previous document that deletes out the rows in a table if they are blank. 

Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Rows.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Rows(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Rows(i).Delete
Next i
Next Tbl
End With
Set cel = Nothing: Set Tbl = Nothing
Application.ScreenUpdating = True

It isn't working this time however and I suspect it's because of the bulletpoint.

Is there a way to tweak my code to ignore the initial column and delete the row if the cell in the second column is blank instead?

Any help would be great.

Thanks

Dav