Pattern Merah dan Hijau

x = InStr(buff, ReplyFrom)
If x > 0 Then
'header1 = Trim(Mid(buff, 1, x - 1))
Cells(nn, 2).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Else
Cells(nn, 2).Select
With Selection.Interior
.ColorIndex = 38
.Pattern = xlSolid
End With
End If

PR: wait... I: wait... L: wait... LD: wait... I: wait... wait... Rank: wait... Traffic: wait... Price: wait... C: wait...