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

[USER8888]

Just a quick guess

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

I've tried changing the Cells(1) to Cells(4) but I get the error message:

"Run-time error '5941':

The requested member of the collection does not exist."


It seemed like the logical choice to me too, but no luck. Thanks for the suggestion though.

[USER8888]

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 -1With .Rows(i)
    If .Cells(4).Range.Text = TargetText & vbCr & Chr(7) Then .Delete
End with
Next i
End With
End Sub

I tried this code instead. It's come back with:

"Compile error: Syntax error" and appears to be highlighting the line: "Sub DeleteRows()"

I've checked the macro is named 'DeleteRows' to match. I'm not sure what else to try.

Thanks.

Edit: I think it's the line:

For i = Rows.Count to 1 Step -1With .Rows(i)

Causing the Syntax error.