Microsoft Office Forums - View Single Post - [Solved] Help to Highlight a cell that has less than 5 characters

Cendrinne · 11-07-2020, 03:06 AM

I had concutted a script that worked for one specific word. But I would have loved to find both or more specific words with this script.

Code:

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

Do you think it's doable? I had tried to put a coma in between the two words, but I got an error message.

The reason I ask, is because when I have a list of companies name with Ltd. and Inc., 10% of the time, I find it on a separate row alone in a cell. So when I have a long table, over 5K rows, scrolling is challengind. So I'm finding a difficult time, looking for these specific short words. And there could be more.

Cendrinne