Coloring cells to left and right based on cell value

Hello all,

I am using the following code to change a range of cells color based on a specific value.

The following working code colors current cell + 4 cells to right:

cell.Resize(1, 5).Interior.ColorIndex = 4

The following fails when trying to color cells to left:

cell.Resize(1, -13).Interior.ColorIndex = 4

Not sure what i am doing wrong. Ultimately, i want to color cells in the current row from column A to column Q based on cell value of column M.

Full code:

    Dim rng As Range, cell As Range
    Set rng = Range("M14:M" & intRowCount)
    For Each cell In rng
       Select Case cell.Value
           Case Is <> 0
           cell.Interior.ColorIndex = 4
           cell.Resize(1, 5).Interior.ColorIndex = 4
           cell.Resize(1, -13).Interior.ColorIndex = 4  '<-- produces an error
       End Select
    Next

Which is the condition for column M?

Why don't you use just Conditional Formatting?

Condition is, if Cell value <> 0

So nothing simplest from CF in this case!

Formula in CF rules.

Formula:

=AND($M1<>"",$M1<>0)

How can you use Conditional Formating.

--In Excel 2007 and 2010, Conditional Formatting is in the Styles group on the Home tab. In Excel 2003, Conditional Formatting is on the Format menu. See here how you can work using CF.

I have not looked into it, has to be done in VBA though.

Just looking for something simple and easy to code, i am not sure how to start with conditional formatting.