Sub Tester1()
Dim cell As Range
For Each cell In Range("A1:A500")
If Application.CountIf( _
cell.Offset(0, 9).Resize(1, 247), _
"100%") 0 Then
cell.Resize(1, 10).Interior _
.ColorIndex = 3
Else
cell.Resize(1, 10).Interior _
.ColorIndex = xlNone
End If
Next
End Sub

worked for me.

--
Regards,
Tom Ogilvy



"Duncan_J" wrote in message
...
Ok, here is a tough one... which I could do if a filtered 200+ columns one
at
a time, and which would be a huge macro. I want to filter each column from
J
all the way to the end, which is IV... I'm filtering for "100%" When
filtered
and if 100% is in that column. I want to color the cells of a row A though
I
with color code 35
Thanks for any ideas. It could be done but it would take about a half day
to
do it manually.
DJ