Record a macro. Select cell C6, switch on AutoFilter, sort column C by colour | Custom.
Option Explicit
Sub Macro1()
'
' Macro1 Macro
'
'
Range("C6").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("May 2016").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("May 2016").AutoFilter.Sort.SortFields.Add(Range( _
"C6:C26"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
RGB(146, 208, 80)
With ActiveWorkbook.Worksheets("May 2016").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Needs tidying up but that's the basic code. I chose to put green on top.
Bookmarks