[AccessD] (OT) Excel Question

Hello Group
Does anyone know how I can loop across columns from column C till the last
one ? I only know how to loop though numerics

Oleg


Sub Numbers()
Dim a As Integer
Dim b As Integer
Dim c

a = 7

Do While IsEmpty(Range("A" & a)) = False
b = 0

If Range("C" & a) <> 0 Then b = b + 1
If Range("D" & a) <> 0 Then b = b + 1
If Range("E" & a) <> 0 Then b = b + 1
If Range("F" & a) <> 0 Then b = b + 1
If Range("G" & a) <> 0 Then b = b + 1
If Range("H" & a) <> 0 Then b = b + 1
If Range("I" & a) <> 0 Then b = b + 1
If Range("J" & a) <> 0 Then b = b + 1
If Range("K" & a) <> 0 Then b = b + 1
If Range("L" & a) <> 0 Then b = b + 1
If Range("M" & a) <> 0 Then b = b + 1
If Range("N" & a) <> 0 Then b = b + 1
If Range("O" & a) <> 0 Then b = b + 1

If b >= 2 Then Range("A" & a).Font.ColorIndex = 3
a = a + 1

Loop

End Sub


-----------------------------------------
Make Money and Find Love at Finally.com
http://www.finally.com/?link=webmail