Код VBA для изменения фонового текста для любого текста в ячейке

Я пытаюсь менять цвет на желтый на основе, если любой текст в столбце D. Я уже настроил 5 разных цветов для другой ячейки, однако это нужно для того, чтобы перебросить их. Я могу сделать эту работу, если скажу "да", поскольку это предопределенное значение. Тем не менее, мне нужно ввести Различный текст и цифры, чтобы не surfice.

ниже то, что я в настоящее время собрал, но нужно изменить "да", чтобы его любой текст в этой ячейке.

Частный Sub . Надписьюworksheet_change(Как Byval В Качестве Целевой Диапазон)

Set MyPlage = Range("T8:T1000") 
For Each Cell In MyPlage
        Select Case Cell.Value  
     Case Is = "Cancelled"
        Cell.EntireRow.Interior.ColorIndex = 8
     Case Is = "Rejected"
        Cell.EntireRow.Interior.ColorIndex = 3           
    Case Is = "Completed"
        Cell.EntireRow.Interior.ColorIndex = 4
    Case Is = "Pending"
        Cell.EntireRow.Interior.ColorIndex = 15          
    Case Is = "Accepted"
        Cell.EntireRow.Interior.ColorIndex = 39
    Case Else
        Cell.EntireRow.Interior.ColorIndex = xlNone

    End Select

Next

 Set MyPlage = Range("D8:D1000")
 For Each Cell In MyPlage
        Select Case Cell.Value
     Case Is = "YES"
        Cell.EntireRow.Interior.ColorIndex = 6

    End Select
Next

Конец Sub

спасибо
James