Hi

Sorry, my bad. Delete line should be

cells(i, 1).EntireRow.Delete
rylo