How to amend Macro to consider all table columns instead of just the first

[Paul_Hossler]

Just a quick guess

 If oRow.Cells(4).Range.Text = TargetText & vbCr & Chr(7) Then oRow.Delete

But I'd start deleting bottoms to top

Sub DeleteRows()
Dim TargetText As String
Dim oRow As Row
Dim i as Long
If Selection.Information(wdWithInTable) = False Then Exit Sub
TargetText = "INTERNAL"
With Selection.Tables(1)
For i = Rows.Count to 1 Step -1
  With .Rows(i)
    If .Cells(4).Range.Text = TargetText & vbCr & Chr(7) Then .Delete
  End with
Next i
End With
End Sub