Dim strClean As String
Dim oTbl As Table
Dim Row As Integer
Dim Col As Integer
Dim strCellText As String

Set oTbl = ActiveDocument.Tables(3)

 For Row = 1 To oTbl.Rows.Count
        For Col = 1 To oTbl.Columns.Count
            strCellText = oTbl.Cell(Row, Col).Range.Text
            strClean = Mid(strCellText, 1, Len(strCellText) - 2)
            If Trim(strClean) = "X" Then
               With ActiveDocument.Tables(4).Cell(2, 3).Range
               .Text = "nailed it"
               End With
            End If
        Next
    Next