VBA Conditional formatting - multiple adjacent cells if specific text on left

[Paul_Hossler]

Put this in the worksheet code module

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    
    On Error GoTo NiceExit
    For Each r In Target.SpecialCells(xlCellTypeConstants, xlTextValues).Cells
        If r.Value = "z" Then r.Resize(1, 4).Interior.Color = vbYellow
    Next


NiceExit:
End Sub