Interior object (Excel)
Represents the interior of an object.
Use the Interior property of the Range object to return the Interior object. The following example sets the color for the interior of cell A1 to red.
Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 3
This example gets the value of the color of a cell in column A by using the ColorIndex property, and then uses that value to sort the range by color.
Sub ColorSort() 'Set up your variables and turn off screen updating. 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 key1:=Range("C2"), _ order1:=xlAscending, header:=xlYes 'Clear out the temporary sorting value in column C, and turn screen updating back on. Columns(3).ClearContents Application.ScreenUpdating = True End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.