Function ProcessTables(oDoc As Document) As Boolean
Dim oTbl As Table
Dim Row As Integer
Dim Col As Integer
Dim oCell As Range
Dim strCellText As String
    On Error GoTo err_Handler

    If oDoc.Tables.Count > 3 Then
        Set oTbl = oDoc.Tables(3)
        For Row = 1 To oTbl.Rows.Count
            For Col = 1 To oTbl.Columns.Count
                Set oCell = oTbl.Cell(Row, Col).Range
                oCell.End = oCell.End - 1
                strCellText = oCell.Text
                Set oCell = oDoc.Tables(4).Cell(2, 3).Range
                oCell.End = oCell.End - 1
                If Trim(strCellText) = "X" Then
                    oCell.Text = "nailed it"
                    Exit For
                    Exit For
                End If
            Next Col
        Next Row
        ProcessTables = True
    End If
lbl_Exit:
    Exit Function
err_Handler:
    ProcessTables = False
    Resume lbl_Exit
End Function