title: Delete row based on fill color index
body: <p>I am trying to delete all rows with in the range of <code>A7:AI300</code> that contain a cell with yellow fill (Color index 6)  I have some code that will delete all rows that contain the color but the problem I am having is that it is trying to run the code for the whole worksheet and will freeze my workbook.  I am trying to insert a range to speed up the calculations. Can anyone show me how to insert the range so it works</p>
  
  <pre><code>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
  </code></pre>