Sub Trier_Sprint(ByVal WsName As String)
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(WsName)
.Range("GB6:GU105").Select
.Sort.SortFields.Clear
.Sort.SortFields.Add Key _
:=Range("GU7:GU105"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With .Sort
.SetRange Range("GB6:GU105")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range("GB7").Select
End With
Application.ScreenUpdating = True
End Sub