traverse until non integer

[evil baby]

here is the problem I have. I'm trying to condition format a fe
different lines. As it stands now it will go across the spreadshee
until a zero value is found, however I would like it to keep goin
until it reaches a non integer value.

for example:

Jan Feb Mar Apr Jun Jul Aug Sep Oct Nov Dec YTD Calctype
25 50 21
96 cumulative


so I would like the macro to check all the values until it reaches th
word "cumulative

 

[Tom Ogilvy]

rw = 1 ' set to row you want to traverse
i = 1
do while lcase(cells(rw,i) <> "cumulative"


i = i + 1
Loop


another possibility

set rng = cells(rw,"IV").End(xltoLeft)
lastcol = rng.column