Sort a worksheet by Colour

[stirlingmw]

Morning all

I have a worksheet "Project Summary" Columns A to L which is a summary of another worksheet "Project Master" Columns A to BW. ONce the data is pulled through from "Project Master" I am using the following code to sort the "Project Summary" sheet:

Sub SortMultipleColumns()
With Worksheets("Project Summary").Sort
     .SortFields.Add Key:=Range("B1", Cells(Rows.count, "B").End(xlUp)), Order:=xlAscending
     .SortFields.Add Key:=Range("A1", Cells(Rows.count, "A").End(xlUp)), Order:=xlAscending
     .SetRange Range("A1:L100")
     .Header = xlYes
     .Apply
End With
End Sub

The final thing I would like this worksheet to be sorted by is colours in Column K in the following order Red, Amber and then Green. Any ideas?

Thank

Steve

 

[mole999]

I think from 2007 you can sort by colour, I'm in 2013 and can't see backwards