Hi Bob
For i = Range("E65536").End(xlUp).Row To 1 Step -1
If Not Cells(i, 4).Font.Bold And Not Cells(i, 5).Font.Bold Then Cells(i,
4).EntireRow.Delete
Next i
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.