if u mean the text color use this

Cells(r, c + 1) = Cells(r, c).Font.ColorIndex

"Martin" skrev:

Hello, I have been given a rather large database sheet in Excel and some of
the line records have been coloured red, green and standard black. Is there a
way I can sort the records by colour i.e. red first the green then black?

Any tips or ideas most welcome Thanks Martin