Удалить строку на основе индекса цвета заливки
Я пытаюсь удалить все строки в диапазонеA7:AI300
которые содержат ячейку с желтой заливкой (Цветовой индекс 6) У меня есть некоторый код, который удалит все строки, содержащие цвет, но проблема, с которой я столкнулся, заключается в том, что он пытается запустить код для всей рабочей таблицы и замораживает мою рабочую книгу. Я пытаюсь вставить диапазон, чтобы ускорить вычисления. Может кто-нибудь показать мне, как вставить диапазон, чтобы он работал
Sub deleterow()
Dim cell As Range
For Each cell In Selection
If cell.Interior.ColorIndex = 6 Then
cell.EntireRow.Delete
End If
Next cell
End Sub