Как сделать сортировку определенных ячеек для всех листов excel

[vellkcom]

Есть много однотипных листов excel, где нужно делать сортировку одних и тех же ячеек. Как сделать один универсальный скрипт для всех листов.

Sub sort14()
'
' sort14 Ìàêðîñ
'

'
Range("B39:AL40").Select
ActiveWorkbook.Worksheets("KRISTIAN A").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("KRISTIAN A").Sort.SortFields.Add Key:=Range( _
"B40:AL40"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("KRISTIAN A").Sort
.SetRange Range("B39:AL40")
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Range("AC50").Select
End Sub

[IgorGO]

sub Main
  dim ar, i&
  ar = array("KRISTIAN A", "хз2","хз3")
  for i = lbound(ar) to ubound(ar)
    sotr14(worksheets(ar(i))
  next
end sub

Sub sort14(wsh as worksheet)
  with wsh.sort
    wsh.Range("B39:AL40").Select
    .SortFields.Clear
    .SortFields.Add Key:=wsh.Range( _
    "B40:AL40"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
    xlSortNormal
    .SetRange wsh.Range("B39:AL40"):  .Header = xlYes:  .MatchCase = False
    .Orientation = xlLeftToRight:  .SortMethod = xlPinYin:  .Apply
  end with
End Sub

[vellkcom]

не работает выдает ошибку. Если не сложно сделайте пожалуйста в фаиле, который я прикрепил

[IgorGO]

поправил пару опечаток

[vellkcom]

Спасибо за помощь. Работает