Sort an area but in the order of a named range of range?

[tonywatsonhelp]

Hi Everyone,

I want to select a cell, then run a macro and I need the macro that when runs to sort my data on this basis
Selected cell is first header,
Sort range is from selected cell resize .Resize(500, 6) top row is headers,
then sort the first column but instead of asending or descending sort in the order of named range "Category"
or if easier sheet"Control" Range("G4:G9")

any idease how i can do this?

thanks

Tony

 

[Fluff]

How about

Sub tonywatson()
With ActiveSheet.Sort
   .SortFields.Clear
   .SortFields.Add Selection, , , Join(Application.Transpose(Range("Category")), ",")
   .SetRange Selection.Resize(500, 6)
   .Header = xlYes
   .Apply
End With
End Sub

 

[tonywatsonhelp]

Brilliant,
Thanks yo once again fluff,
Tony

 

[Fluff]

You're welcome & thanks for the feedback.