Sub colorifblankxx()
For Each c In Range("D2:D8")
If Application.CountA(c.Resize(, 15)) < 1 Then
c.Offset(, -1).Interior.ColorIndex = 6
End If
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"CR" wrote in message
m...
This part of my macro runs perfectly:

For Each c In Range("D6:D61")
If c.Resize(, 15).Interior.ColorIndex = xlNone Then
c.Offset(, -1).Interior.ColorIndex = 6

It runs though the rows, checks for xlNone and changes the color of the
offset cell.

I would also like it to check the rows and if all cells in a row are
blank, change the color of the offset cell.

I have tried several variations such as:

For Each c In Range("D6:D61")
If c.Resize(, 15).Value = "" Then
c.Offset(, -1).Interior.ColorIndex = 6

But no luck.

Thanks

CR