Public Sub CheckTableCells()

Dim oCell As Cell
Dim oRow As Row
Dim MyRange As Range
Dim Rng As Variant
Dim findText As String
Dim x1 As Excel.Application
Dim wkbk As Excel.Workbook
Dim wksh As Excel.Worksheet

Set x1 = New Excel.Application

x1.Workbooks.Close
Set wkbk = x1.Workbooks.Open(FileName:="F:\Blatchford termbase_MASTER.xlsx", ReadOnly:=True)
Set wksh = wkbk.Sheets(1)

If x1.Ready = True Then
LastRow = wksh.Columns(1).SpecialCells(xlLastCell).Row
Set Rng = wksh.Range(Cells(1, 1), Cells(LastRow, 1))
 Debug.Print Rng(1).Text
    For x = 1 To Rng.Count
        
        If Not Rng(x) Is Nothing Then
          
            findText = Rng(x).Text
            For Each oRow In Selection.Tables(1).Rows
    For Each oCell In oRow.Cells
        Set MyRange = oCell.Range
        
        Do While True
        MyRange.Find.Highlight = True
        MyRange.Find.MatchWildcards = False
        MyRange.Find.MatchWholeWord = True
        MyRange.Find.Forward = True
        MyRange.Find.IgnorePunct = True
        MyRange.Find.Execute (findText)
        
            If MyRange.Find.Found Then
           Debug.Print oCell.Range.Text
            With MyRange.Font
            .ColorIndex = wdGreen
            .Bold = True
            End With
            
            
            Else
            Exit Do
            End If
        Loop
    Next oCell
Next oRow
            
        Else
            MsgBox "Nothing found"
            Exit For
        End If
        
    Next x
x1.Workbooks.Close
Else
End
End If

End Sub