Debra

Thanks for prompt reply

When I run this macro (from the Tools Menu), I get an error 'Runtime error(13) type mismatch' and when I click debug, it highlights this line
i = c.Offset(0, 3) - c.Offset(0, 2) +

I suspect I am just doing something wrong...I would greatly appreciate any suggestions

Tracy