Hjælp mig ...

Jeg kan _ikke_ få den "nye" sorteringssyntaks til at ville som mig :(

Nedenstående giver mig "the sort reference is not valid" i .Apply

Er der nogen der har et bud?

(og som bonus - hvorfor kan jeg ikke bare skrive ActiveSheet.Range(Cells(sortC, 2), Cells(sortC, lastR)) og det andet direkte inde i Sort ?)

På forhånd mange tak

Dim lastR As Long
Dim sortC As Long
Dim sortRange As Range
Dim sortColumn As Range

lastR = Range("XFD2").End(xlToLeft).End(xlDown).Row
sortC = Range("XFD2").End(xlToLeft).Column

Set sortColumn = ActiveSheet.Range(Cells(sortC, 2), Cells(sortC, lastR))

Set sortRange = ActiveSheet.Range(Cells(sortC - 1, 2), Cells(sortC, lastR))

ActiveWorkbook.Worksheets("Data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add Key:=sortColumn, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Data").Sort
    .SetRange sortRange
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With