Resaltar rango de fila según valor de celda

[pl.olivares]

Buenas tardes! me ayudan por favor,

Necesito resaltar un rango de fila ej (A1:E1) y dependiendo del valor de E1, si este es "ok" resalte este rango.

(Dentro de la hoja completa)

Muchas gracias 

[JasallBcn]

lo puedes hacer con formato condicional

y con una macro seria algo así.

Dim Rg As Range
Set Rg = Range("E1:E" & Range("E" & Rows.Count).End(xlUp).Row)

For Each Rg In Rg
 
 For i = 0 To -4 Step -1
  If Rg.Value = "ok" Then
   Rg.Offset(0, i).Interior.Color = vbGreen
  Else
   Rg.Offset(0, i).Interior.Color = xlNone
  End If
  Next

Next Rg

saludos