Hi,

I have a work sheet with the date as the column header and hundreds of rows.
Most of the cells are blank but some contain values. Each value is coloured
due to the 'stage' it is in. Basically i want to read these 1000's of cells
and find all the values in red text. I already have this code to do it:

Function FontColor(R As Range) As Integer
Application.Volatile True
FontColor = R.Font.ColorIndex
End Function

But i want to organize the cells (in a separate workbook) to skip all the
blank cells so the new workbook looks like:

Date Date Date etc etc
Redtext Redtext3 Redtext4
Redtext2

at the moment my work book has a formulas like:

=IF(AND(FontColor('[Overall5.xls]Programme'!V5)=3,'[Overall5.xls]Programme'!V5<0),'[Overall5.xls]Programme'!V5,"")

in every cell. This takes to long to update (it crashes if i don't have the
'Overall5' workbook open) and doesn't organize them how i would like. I have
tried using filters to organize the data afterwards but i am sure there is a
better more efficient way of doing it.

Thanks for any help

Tom