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

[Paul_Hossler]

That's how I first put it in and it didn't work. I deleted Option Explicit again, but it still isn't working. Not sure what I'm doing wrong.

If you don't want to use a WS change event, then I'd put it in a standard module, not the WS code module

Option Explicit


Sub blah()
    Dim cll As Range
    
    On Error GoTo NiceExit
    For Each cll In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues).Cells
        If cll.Value = "z" Then cll.Resize(, 4).Interior.Color = vbYellow
    Next cll
    
NiceExit:
End Sub