Sub MFSortType()
'
' MFSortType Macro
'
'
Sheets("Bank").Select
'To reset Zoom levels of the sheet
Call ZoomReset
ActiveSheet.AutoFilterMode = False
On Error Resume Next
ActiveSheet.ShowAllData
Err.Clear
ActiveWorkbook.Worksheets("Bank").ListObjects("MF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Bank").ListObjects("MF").Sort.SortFields.Add2 Key _
:=Range("MF[Type]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Bank").ListObjects("MF").Sort.SortFields.Add2 Key _
:=Range("MF[Fund]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Bank").ListObjects("MF").Sort.SortFields.Add2 Key _
:=Range("MF[Plan]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Bank").ListObjects("MF").Sort.SortFields.Add2 Key _
:=Range("MF[Name]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Bank").ListObjects("MF").Sort.SortFields.Add2 Key:= _
Range("MF[Portfolio]"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Bank").ListObjects("MF").Sort.SortFields.Add2 Key _
:=Range("MF[Allotted]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Bank").ListObjects("MF").Sort.SortFields.Add2 Key _
:=Range("MF[Dt]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Bank").ListObjects("MF").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'To go to the Top
Range("MF[[#Headers],[Type]]").Select
ActiveCell.Offset(1, 0).Select
'To Hide/Show Filter Arrow
ActiveSheet.AutoFilterMode = True
ActiveSheet.ListObjects("MF").ShowAutoFilterDropDown = True
'Selection.AutoFilter
'ActiveWorkbook.Save
End Sub