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

[p45cal]

A really lazy (=inefficient) way:

Sub blah()
For Each cll In ActiveSheet.UsedRange
  If cll.Value = "z" Then cll.Resize(, 4).Interior.Color = vbYellow
Next cll
End Sub