SortField.SortOn (Excel)

Returns or sets the attribute of the cell to sort on. Possible return values are xlSortOnCellColor, xlSortOnFontColor, xlSortOnIcon, xlSortOnValues.

ActiveSheet.Sort.SortFields(1).SortOn = xlSortOnCellColor