Try this macro. I'm assuming your data is in column A. Change the columns letters (in red) to suit your needs.
Sub demiwen()
Application.ScreenUpdating = False
Dim LastRow As Long, rng As Range, splitRng As Variant, x As Long, y As Long, val As String, splitVal As Variant
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each rng In Range("A2:A" & LastRow)
If InStr(1, rng, "bill") > 0 And InStr(1, rng, "incorrect") > 0 Then
splitRng = Split(rng, " ")
x = WorksheetFunction.Find("bill", rng) '12
y = WorksheetFunction.Find("incorrect", rng) '31
If x > y Then
val = Mid(rng, y, x - y)
Else
val = Mid(rng, x, y - x)
End If
splitVal = Split(val, " ")
If UBound(splitVal) <= 5 Then
rng.Interior.ColorIndex = 6
End If
End If
Next rng
Application.ScreenUpdating = True
End Sub
Bookmarks