I have my folders auto sorting on certain column like this:
Sub Worksheet_Activate()
rowcount = ActiveSheet.UsedRange.Rows.Count
Range(Cells(9, 1), Cells(rowcount, 13)).Select
Selection.Sort Key1:=Range("F9"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1...