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

macropod · 11-07-2020, 02:53 AM

For example:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim oCell
For Each oCell In Selection.Tables(1).Range.Cells
  With oCell.Range
    If Len(.Text) > 2 Then
      If Len(.Text) < 7 Then .HighlightColorIndex = wdYellow
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub