Dim i2 As Long
Dim onepercent As String
Dim seq As Variant
' The sequence contains the values to highlight
onepercent = "5990,5711,5724,5726,5980,5712,5168,5164,5167,5072,5062,5067,5068,DEEPSEA,BLK.BL.BZ,GREEN SUBMARINER," _
& "SS WHT DAYTONA,SS BLK DAYTONA,OYSTFLEX,CERACHROM,SEA DWELLER,WG YACHT,18KY YACHT,18KY YAHT,18KW YACHT,18KW YAHT,PG BLK BZ.DL DTE,PG YACHT"
' Split sequence list, so it can loop through each value in the array
Dim seqList() As String
seqList = Split(onepercent, ",")
' This loops through up to Row 20 to determine if the cell value contains a sequence value, if it does, then it highlights it red
For i2 = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Dim cellVal As String
cellVal = Cells(i2, 2).Value 'Cells (i2, 2) --> i refers to row number and 2 refers to column number. So in this case I set it to B
For Each seq In seqList
Dim outcomeNum As Integer
outcomeNum = InStr(cellVal, seq)
If outcomeNum > 0 Then
Cells(i2, 2).Characters(Start:=outcomeNum, Length:=Len(seq)).Font.Color = RGB(255, 0, 0) ' You can set color here or change it to something else
End If
Next seq
Next i2
Dim i3 As Long
Dim twopercent As String
Dim seq2 As Variant
' The sequence contains the values to highlight
twopercent = "SS SUB,SS BLK SUBMARINER,EXPLOR,SS . GMT-MASTII,SS/PG YACHT,S/PG YACHT,SS 18KR YACHT,SS YACHT,S/PLT YACHT," _
& "S/ST PLT YACHT,SS/PLAT YACHT,S/18YG YACHT,S/ST PLAT"
' Split sequence list, so it can loop through each value in the array
Dim seqList2() As String
seqList2 = Split(twopercent, ",")
' This loops through up to Row 20 to determine if the cell value contains a sequence value, if it does, then it highlights it blue
For i3 = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Dim cellVal2 As String
cellVal2 = Cells(i3, 2).Value 'Cells (i3, 2) --> i refers to row number and 2 refers to column number. So in this case I set it to B
For Each seq2 In seqList2
Dim outcomeNum2 As Integer
outcomeNum2 = InStr(cellVal2, seq2)
If outcomeNum2 > 0 Then
Cells(i3, 2).Characters(Start:=outcomeNum2, Length:=Len(seq2)).Font.Color = RGB(0, 0, 255) ' You can set the color here or change it to something else
End If
Next seq2
Next i3