I am trying to write a formula that tells me if a cell is not white and
return a flag.

depends somewhat too on how you mean to 'flag' them....in this code i add a
new worksheet....

Option Explicit
Sub FlagColoredCells()
Dim ws As Worksheet 'for results
Dim cell As Range ' for find
Dim rowindex ' for results

For Each cell In ActiveSheet.UsedRange
If cell.Interior.ColorIndex <> xlNone Then
If ws Is Nothing Then
Set ws = Worksheets.Add
rowindex = 1
End If
ws.Cells(rowindex, 1) = cell.Address
ws.Cells(rowindex, 2) = cell.Interior.ColorIndex
rowindex = rowindex + 1
End If
Next
End Sub


"birdnat" <(E-Mail Removed)> wrote in message
news:65AC7691-FB47-4B21-9124-(E-Mail Removed)...
> I am trying to write a formula that tells me if a cell is not white and
> return a flag.

you can use a worksheet function CELL
=cell("color",A1)

returns 1 if the cell is formatted in color for negative values; otherwise
returns 0 (zero).

This function and Patrick's solution will not work if the cell is colored
using conditional formating.

"Patrick Molloy" wrote:

> depends somewhat too on how you mean to 'flag' them....in this code i add a
> new worksheet....
>
> Option Explicit
> Sub FlagColoredCells()
> Dim ws As Worksheet 'for results
> Dim cell As Range ' for find
> Dim rowindex ' for results
>
> For Each cell In ActiveSheet.UsedRange
> If cell.Interior.ColorIndex <> xlNone Then
> If ws Is Nothing Then
> Set ws = Worksheets.Add
> rowindex = 1
> End If
> ws.Cells(rowindex, 1) = cell.Address
> ws.Cells(rowindex, 2) = cell.Interior.ColorIndex
> rowindex = rowindex + 1
> End If
> Next
> End Sub
>
>
> "birdnat" <(E-Mail Removed)> wrote in message
> news:65AC7691-FB47-4B21-9124-(E-Mail Removed)...
> > I am trying to write a formula that tells me if a cell is not white and
> > return a flag.
>