You need a Loop statement to finish the Do / Loop loop, and in the
line:

If cell.Interior.ColorIndex .....

you have not Set any reference to the cell variable.

Best regards,
Per


On 27 Jun., 13:23, "J.W. Aldridge"
wrote:
thanx but didnt quite work.

Was my starting code not good?