Two column deletion
.Columns(1).SpecialCells(xlConstants, xlErrors).EntireRow.Delete
.Columns(2).SpecialCells(xlConstants, xlErrors).EntireRow.Delete
The above two lines of code from your posted code can be converted into a
single line...
..Range("A:B").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
Rick Rothstein (MVP - Excel)
|