Microsoft Office Forums - View Single Post - [Solved] Delete table cells if nothing is filled

gmaxey · 09-04-2012, 07:36 PM

Code:

Sub ScratchMacro()
'A quick macro scratch pad created by Greg Maxey
Dim i As Long
Dim lngCount As Long
For i = ActiveDocument.Tables(1).Rows.Count To 1 Step -1
  lngCount = ActiveDocument.Tables(1).Rows(i).Cells.Count * 2 + 2
  If Len(ActiveDocument.Tables(1).Rows(i).Range.Text) = lngCount Then
    ActiveDocument.Tables(1).Rows(i).Delete
  End If
Next
End Sub