Код для условного форматирования (цветовой заливки) выделенных ячеек на основе текста

Question

Я создал этот код для изменения шрифта ячеек, заканчивающихся буквой S, и он отлично работает.Мне просто нужно изменить его, чтобы вместо изменения шрифта он заполнял ячейки красным цветом.Бонусом будет то, как условно отформатировать его, чтобы сделать вертикальную заливку цвета слева направо.В любом случае, вот мой код, который работает для изменения цвета шрифта:

Sub HighlightS()

' HighlightS Macro

    Dim rStart As Range

    Set rStart = Selection

    Selection.FormatConditions.Add Type:=xlTextString, String:="S", _

        TextOperator:=xlEndsWith


Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    With Selection.FormatConditions(1).Font

        .Bold = True

        .Italic = False

        .Color = vbRed

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).StopIfTrue = False

    Selection.FormatConditions.Add Type:=xlTextString, String:="Not effective", _
        TextOperator:=xlContains


Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    With Selection.FormatConditions(1).Font

        .Bold = True

        .Italic = False

        .Color = vbRed

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).StopIfTrue = False

End Sub

решено:

Sub SFillRed()
' HighlightS Macro
    Dim rStart As Range
    Set rStart = Selection
    Selection.FormatConditions.Add Type:=xlTextString, String:="S", _
        TextOperator:=xlEndsWith
   Selection.FormatConditions(1).Interior.Color = vbRed
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlTextString, String:="Not effective", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).StopIfTrue = False
End Sub