SpecialCells Delete Based on Interior Colo

[VenturSum]

Hi All,

I have column of cells that I loop through
and delete the cell if the interior color = vbCyan

I'm wondering if It's possible to delete (shift:=xlup) cells using SpecialCells in the column where Interior.Color=vbCyan.

Any thoughts?

John,
In Annapolis

 

[MrKowz]

How are these cells colored? Is it through a conditional format, or are they manually colored cyan?

 

[VenturSum]

Hi,

The cells are colored via VBA during a change event:

Private Sub Worksheet_SelectionChange()

When the user clicks on the cell, the background color and pattern change toggle back and forth between colored and no color / no pattern.

Once selected I remove the cells with No coloring and No pattern using a loop.

And I'm looking for a faster process than using the loop.

Thank you,

John