Deleting Rows If Not Bold

B

Bob Beard

I require a row deleting if the cells in columns D and E
are NOT bold.

is this possible?

Excel 2000.

Thanks

Bob.
 
P

papou

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

HTH
Cordially
Pascal
 
Top