Conditional Formatting - (Range)

[parttime_guy]

Hi

Have a conditional formatting code

<Code>
Sub FormatTotalRow()
'Worksheets(1).Range("K1:K500").Select
'For Each c In Selection.Cells
'If c.Value = "CHECK" Then c.Resize(1).Interior.ColorIndex = 50
'Next c

Worksheets(1).Range("K1:K500").Select
For Each c In Selection.Cells
If c.Value >= 350 Then c.Resize(1, 4).Interior.ColorIndex = 50
Next c


End Sub

<code\>

In above code, it highlights the results in the selected and in addition to 4 following columns "Resize(1, 4)"
How do you do 4 preceding columns?

Kindly Help
parttime_guy

 

[Peter_SSs]

Try

Sub FormatTotalRowLeft()
  Dim c As Range
  
  For Each c In Worksheets(1).Range("K1:K500")
  If c.Value >= 350 Then c.Offset(, -3).Resize(1, 4).Interior.ColorIndex = 50
  Next c
End Sub