Dim iCounter As Integer Application.ScreenUpdating = False 'For each cell in column A, go through and place the color index value of the cell in column C. For iCounter = 2 To 55 Cells (iCounter, 3) = _ Cells (iCounter, 1).Interior.ColorIndex Next iCounter 'Sort the rows based on the data in column C Range ("C1") = "Index" Columns ("A:C").Sort ...