VBA Conditional Formatting

[Declamatory]

Hi Folks,

Would someone be able to help me with some VBA code for conditional formatting?

I would like to highlight cells yellow in columns A, B, C and D if the corresponding cell in column D contains the word Redemption.

There could be any number of rows in the sheet called Paste Tab that the condition would need to apply to.

Thanks

 

[mikerickson]

Does column D get its values from formulas or from user entry?

 

[Declamatory]

Sorry. I should have clarified. It is not a formula. Just text.

So if D56 contains the word Redemption then A56, B56 C56 and D56 would highlight yellow.

Thanks for the reply.

 

[mikerickson]

You could put this in the code module for the sheet in question.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oneCell As Range
   
    With Target
        If Not (Application.Intersect(.Cells, Range("D:D")) Is Nothing) Then
            For Each oneCell In Application.Intersect(.Cells, Range("D:D"))
                oneCell.EntireRow.Range("A1:D1").Interior.Color = IIf(0 < InStr(1, oneCell.Value, "Redemption", vbTextCompare), vbYellow, vbWhite)
            Next oneCell
        End If
    End With
End Sub

 

[Declamatory]

How would I add this to the end of existing code?

 

[mikerickson]

I don't know what existing code you are talking about.