Var ändrar jag sorteringen ?
nu är det Ö till A, jag vill ha det till A till Ö
Sub Makro1()
'
' Makro1 Makro
'
'
Range("P2:T22").Select
ActiveWorkbook.Worksheets("fakturor").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("fakturor").Sort.SortFields.Add2 Key:=Range( _
"P2:P22"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("fakturor").Sort
.SetRange Range("P2:T22")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("P2").Select
End Sub