Hi everyone,

I need some help a looping format, here is the problem:

I have data in col A B C , and i need each time both A1 B1 C1 is equal
to zero the text color is white, and so on until A100 B100 C100; i
have thinking in someting but is not working...

Can you help me....


Thanks


______________________

Sub color()
Dim icol As Integer
Dim ilin As Integer
Dim r As Range

ilin = 0
icol = 0
Sheets("Certificado").Select
For ilin = 0 To ilin = 114
If (r.Cells(ilin, 1) = 0 And r.Cells(ilin, 2) = 0 And r.Cells(ilin,
3) = 0) Then
'Range(Cells(ilin1, 1), Cells(ilin1, 2), Cells(ilin1, 3)).Select
Font.ColorIndex = 2
End If
Next ilin