Macro for Text and Cell Color Matching

[NoSurprise]

Okay, so here's the situation: I am looking for a macro to examine the first 10,000 rows of a worksheet. Typically there is text in each row out to the 25th column.

I need a macro to determine that if a cell is filled with a color AND if the text color in that cell is white, then the text color must be changed to the fill color (so that the text is not visible).

Any takers?

 

[ravishankar]

Hi
try this macro on a sample sheet before you use it

Sub surprise()
    For Each cell In ActiveSheet.UsedRange
        If cell.Value <> "" And cell.Interior.ColorIndex <> -4142 And cell.Font.ColorIndex = 2 Then
        cell.Font.ColorIndex = cell.Interior.ColorIndex
        End If
    Next cell
MsgBox "complete"
End Sub

Ravi

 

[NoSurprise]

I tried it and it appears to just time out without making any changes.

 

[NoSurprise]

Any ideas why it just times out?