Sub Find_5_Letters_and_less_in_cell()
'Chr(13) = CR Carriage Return // Chr(7) = BEL or EndMarker
Dim tTbl As Table
Dim oCell As cell
Dim oRng As range
  
Application.ScreenUpdating = False

 Set tTbl = Selection.Tables(1)
  'For Each tTbl In ActiveDocument.range.Tables
   For Each oCell In tTbl.range.Cells
    'If oCell.range.Text = "Inc." + Chr(13) + Chr(7) Then
     If oCell.range.Text = "Ltd." + Chr(13) + Chr(7) Then
         oCell.range.HighlightColorIndex = wdYellow
     End If
  Next oCell
'Next
  Application.ScreenUpdating = True
   Application.ScreenRefresh
  DoEvents
  
lbl_Exit:
  Set tTbl = Nothing
  Set oRng = Nothing
  Exit Sub
  
  On Error GoTo 0
  
End Sub