Hi Simon

Many thanks for the help, when I run the code I get this error:

Delete method of Range class failed

and when I press debug it highlights this line:

MyCell.EntireRow.Delete

Regards

Alan