First watch out for typos.

It's xlNone (with an ELL), not x1None (with a ONE).

Second, it looks like you want to look at column A in A4:A41 and color A:S of
that row.

If that's the case, maybe something like:

Option Explicit

Sub FormatCells()

Dim LastInsp As Range
Dim myCell As Range

Set LastInsp = Range("a4:a41")

For Each myCell In LastInsp.Cells
If myCell.Value = 1 Then
myCell.Resize(1, 19).Interior.ColorIndex = 3
Else
myCell.Resize(1, 19).Interior.ColorIndex = xlNone
End If
Next myCell

End Sub



Brian T wrote:

I am trying set the cell color for a range of cells by determining the value
of a cell in the range. For example if A4=1, I want that row 4 to be red and
if a4=0, I want the row to have no color. But my whole range turns red.
Here is the code that I have done so far. What am I not getting?

Sub FormatCells()

'Create Class 1 Variables
'Class_1 is all information
'LastInsp in the time since the last inspection.

Dim Class_1 As Range
Dim LastInsp As Range
Set Class_1 = Range("a4:s41")
Set LastInsp = Range("a4:a41")

'Set color in range.
'Colored background shows that inspection is out of date.

Class_1.Interior.ColorIndex = x1None

For Each Class_1 In Range("a4:s41")
If LastInsp = 1 Then
Class_1.Interior.ColorIndex = 3
ElseIf LastInsp = 0 Then
Class_1.Interior.ColorIndex = x1None
End If
Next

--

Dave Peterson