Delete data from selected multiple Word tables

I have the following code which deletes any row in columns 4-8 of a word table with a '-' symbol.

Code:

---

Sub Delete_Table_Rows_With_No_Data()
Dim objCell As Range
Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
Dim varCellEmpty As Boolean

    Application.ScreenUpdating = False

    If Selection.Information(wdWithInTable) = False Then
        MsgBox ("Put cursor inside a table first!")
        Exit Sub
    Else
        With Selection.Tables(1)
            nRows = .Rows.Count
            For nRowIndex = nRows To 1 Step -1
                varCellEmpty = True
                For nColumns = 5 To .Columns.Count
                    Set objCell = .Rows(nRowIndex).Cells(nColumns).Range
                    objCell.End = objCell.End - 1
                    If Len(objCell) > 0 And Not objCell.Text = "-" Then
                        varCellEmpty = False
                        Exit For
                    End If
                Next nColumns
                If varCellEmpty = True Then .Rows(nRowIndex).Delete
            Next nRowIndex
        End With
    End If
    Set objCell = Nothing
    Application.ScreenUpdating = True
End Sub

---

At present I have to go through and run the macro for each table.

I would like to program the macro so it runs for selected tables in the document but I'm unsure of the code to achieve this.

For instance, the first table in the document does NOT require the macro but tables X-XX which contain data DO require it.

Im a bit lost. Any Ideas?

Thanks in advance

you can add Title to you tables:


For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Title = i & ""
Next


so you can Step Into Code F8:

for i = 1 to ActiveDocument.Tables.Count
ActiveDocuments.Tables(i & "").Select
next

and you can see which tables are being selected.
you can then identify which "i" is to exclude from
emptying the cells.