Макрос MS Office Excel: удаление цветных строк

Есть табличка, большая часть строк с черным текстом, часть строк выделена красным, синим, зеленым цветом.






Макрос удаляет цветные строки:


Sub removeNoBlackText() 

 i = ActiveSheet.UsedRange.Rows.Count 

 For c = i To 1 Step -1 

 If Cells(c, 1).Font.Color <> Black Then Rows(c).Delete 

 Next 

End Sub