how do I sort dictionaries by value then by key?

Vba - sort data using header value

• I have the following code to sort an array of data. Sub Sort() Rows("8:275").Select Range("A275").Activate Selection.Sort Key1:=Range("BL9"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBot_ DataOption1:=xlSortNormal Range("A8").Select End Sub The column to sort the data by is constantly changing, however the header is always the same. How can i amend the code so that instead of sorting by column BL9, it sorts using the header value - "GP"? Thanks in advance for your help Chris

• Answer:

  Chris It appears the header row is row 8. If not change Rows(8) below to indicate the header row. Sub Sort() dim res as Variant Rows("8:275").Select Range("A275").Activate res = Application.Match("GP",rows(8),0) if not iserror(res) then Selection.Sort Key1:=cells(9,res), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBot_ DataOption1:=xlSortNormal else msgbox "GP not found in row 8" End if Range("A8").Select End Sub