Hi Charles

Thanks for the help, much appreciated

I made one small change , I needed to include positive and negative calues <> zero -see snippet of code below


If Cells(c.Row, 2).Value <> 0 Then ....

If Cells(c.Row, 2).Value <> 0 Then .....

Are there any good VBA books your can recommend for novices?