Hi folks:

I've been trying to work on some code that would color, let's say 30 consecutive cells on the same row if the firt one is not empty. Something like...

range("A5").select
if activecell.select <> "" then "color the 30 cells on that row to the right of A5"
activecell.offset (0,1).select
and keep testing until cell is "blank"

Any help would be appreciated.