Hi, I am currently using custom sort to sort a big list.
I want to apply the custom sort 39 or n times.
Sub SortCity2()
range("A42:H81").Select
ActiveWorkbook.worksheets("Snabb2").Sort.SortFields.Clear
ActiveWorkbook.worksheets("Snabb2").Sort.SortFields.add key:=range("A42")...